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VORWORT 


Mit >> VC-20 TIPS S( TRICKS << liegt ein neues DATA BECKER BUCH 

vor Ihnen. Es soll Ihnen helfen, die fantastischen Möglichkeiten 
von Commodoro's Millionending näher zu erschließen. Wie schon bei 
unseren anderen Büchern, lag unser Schwergewicht deshalb nicht 
bei bunten Bildern und schriftstellerischer Meisterleistungen. 
Wir haben uns stattdessen auf handfeste Informationen 
spezialisiert, die Sie sofort nutzen können. Vor allem gehören 
zahlreiche, ausführlich dokumentierte Bei spiel Programme. Die 
Autoren dieses Buches sind alle begeisterte Computerfans und — 
Experten, die hier ihre Erfahrungen wiedergeben. Michael 
Angerhausen ist Mitglied des DATA BECKER Softwareteams. Sein 
Schwerpunkt sind kommerzielle Programme und Datenbanksysteme. 
Axel Riedner arbeitet im Heimcomputer Verkauf bei DATA BECKER. Er 
kennt aus seiner täglichen Arbeit die Fragen von VC-20 Anwendern 
und hat versucht, möglich viele davon in diesem Buch zu 
beantworten. Wolfgang Schellenberger gehört auch zum DATA BECKER 
Softwareteam. Er beschäftigt sich hauptsächlich mit Sound und 
Graphik. Unterstützt wurden die drei Autoren von unserem 
Entwicklungsschef Klaus Gerits und von Lothar Englisch. Nicht 
unerwähnt bleiben sollten auch die vielen Helfer, ohne die die 
eines solchen Buches kaum noch denkbar erscheint: 
unsere Computer. VC-20 TIPS & TRICKS wurde komplett mit 
Textverarbeitung erstellt und auf einem EPSON Drucker 

ausgedruckt. 

Viel Spaß bei der Lektüre dieses Buches. 
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Kapitel 2 Der Speicher des VC-20 und seine Erweiterung 


Wenn Sie einmal den Anzeigenteil der Fachzeitschriften 
durchgeblättert haben, wird ihnen sicher aufgefallen sein, 
daß gerade für den VC-20 Speichererweiterungen gigantischer 
Ausmaße angeboten werden, d.h. 64K und darüber. 

In diesem Kapitel wollen wir Ihnen zeigen, in welchem Rahmen 
derartige Projekte realisierbar sind. Wir wollen Sie in die 
Lage versetzen, die diversen Angebote richtig zu beurteilen. 
Wir beginnen zweckmäßigerweise mit 


2.1 Der Spei eheraufbau des VC-20 

Der VC-20 arbeitet mit einem Prozessor des Typs 6502. Zu 
dessen Eigenschaften gehört, daß er einen Adressraum von 64K 
hat, d.h. aufgrund seiner 16 Adressleitungen kann er nur 
diesen Bereich durchgehend adressieren, und nicht mehr. 
Diesen wichtigen Punkt sollten Sie sich merken. 

Beim Design eines Rechners mit einem vorgegebenen Prozessor 
muß man sich natürlich Gedanken machen, wie dieser zur 
Verfügung stehende Adressraum sinnvoll aufgeteilt wird. Es 
sind hier nämlich nicht nur Betriebssystem, Basicinterpreter 
und Ram unterzubringen, sondern auch, aufgrund verschiedener 
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auch 


der 


Eigenarten der Prozessorfami1ie 65 kx, 
Ausgabebereich, also der Teil, der -für die 
der Außenwelt (Tastatur, lEC-Bus, Userport 
i st. 

Im Falle des VC—20 heißt das konkret, daß 
genügend groß erscheinenden 64K folgendes 
muß: 

* 8K Betriebssystem 

* 8K Basicinterpreter 

* 4K Ein- Ausgabe 

* 4K Zeichengenerator 


Ei n- 


Kommunikation mit 
usw.) vorgesehen 


von dem zunächst 
abgezogen werden 


Es bleibt also noch ein Bereich von 40K übrig, der mit Ram 
bestückt werden könnte- 

Zur Darstellung eines Bildes auf dem Schirm wird ein sog. 
Bildwiederholspeicher benötigt, an anderer Stelle auch 
Videoram genannt, der eine Größe von 1/2K hat. 

Darüberhinaus benötigt das Betriebssystem zum korrekten 
Arbeiten noch einen Speicher von IK, in dem die sog. 
Zeropage, der Stack (Stapelspeicher zur Schachtelung von 
Unterprogrammen) und weitere Abi aufparameter untergebracht 
sind. 

Außerdem ist noch ein Bereich von BK reserviert, in dem das 
Betriebssystem etwa vorhandene Erweiterungen oder 
Spielmodule erwartet. 

Das Videoram, welches sich aufgrund der Hardware des 
Videocontrollers nur in den unteren 8K befinden darf, 
begrenzt den für den Anwender zur Verfügung stehenden 
Speicher nach unten. Nach oben wird der Bereich vom 
Zeichengenerator abgeschlossen, sodaß letztlich für Ihre 
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Programme noch ca, 28K zur Verfügung stehen. 


Dieser Bereich kann auf verschiedene Weise genutzt werden. 

In der Grundausstattung enthalten ist ein Ram von 5K. Nach 
Abzug von Videoram und des vom Betriebssvtem benötigten 
Speichers bleiben ca. 3 1/2K für den Anwender übrig. Hieraus 
ergibt sich, daß nur Speichererweiterungen von bis zu 24K 
für reine Basicanwendungen sinnvoll und, was sehr wichtig 
ist, vom Betriebssystem problemlos zu handhaben sind. Auf 
diesen Umstand gehen wir im Abschnitt 2.5 noch einmal im 
Besonderen ein. 

Auf den folgenden drei Seiten finden Sie nun die 
Speicheraufteilungen des VC-20 bei unterschiedlichen 
Speicherausbauten. 

Sollten Sie sich bereits einmal gewundert haben, daß 
Programme, die in Videoram und Farbram hineinpoken, wohl auf 
der Grundversion gelaufen sind, jedoch nach einer 
Erweiterung um 8K ihren Dienst versagen, finden Sie hier die 
Lösung für diesen Effekt. Sie sollten diesbezüglich einmal 
die Lage von Videoram und Farbram auf der dritten Abbildung 
mit der auf den ersten beiden Bildern vergleichen. 

An dieser Stelle sei Ihnen verraten, wie Sie Ihre Programme 
veranlassen können, auf allen Konfigurationen zu laufen: 
Beabsichtigen Sie, den Video- oder Farbram mittels PÜKE zu 
handhaben, so ermitteln Sie bitte deren Basisadressen 
folgendermaßen 

Videoram: BS=4*(PEEK(36866)AND128)+64*(PEEK(36869)AND120) 
Farbram : FA=4*(PEEK(36866)AND128)+37888 
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Alle folgenden POKEs, die Färb- oder Videoram zum Ziele 
haben, sollten sich auf die derart festgestellten Adressen 
beziehen, et^a in der Form 

PüKE BS+rel. Position,Bi1dschirmcode 
PGKE FA+rel. Position,Farbcode 

Die Darstellung der Adressen in den Diagrammen auf den 
folgenden Seiten erfolgt in der sedezimalen Schreibweise. 
Wenn Sie damit nicht vertraut sind, brauchen Sie sich nur zu 
merken, daß ein Sprung um den Wert 1 in der ersten Stelle 
einem Sprung um 4K im Adressraum entspricht. 


B 


2-2 Grundausbau 


•EOOO 


•COOO 


•ROOO 


•9000 


•8000 


•2000 

• lEOO 


• 1000 


•0400 

•0000 


BETRIEBSSYSTEM 


BBSIC 


SPIELMODULE ETC. 


EIN- RUSGRBE 


2EICHENGENERRT0R 


FREI 


VIOEO-RRM 


BRSIC-RRH 


FREI 


2ER0PRGE,3TRCK 


Diese Speicherauftei1ung ist in 
der Grundausstattung des VC-20 
gegeben. 


Hierbei 

fällt auf. 

daß 

der 

Basicbereich nicht 

sofort 

oberhalb 

von Zeropage 

und 

Stack 

beginnt, 

sondern ei 

n 

Stück 

höher. 




Das liegt daran, 

daß 

der 

Videoram 

Bestandtei1 

des 

auch 

für Basic verwendeten 

Speichers 

ist, und 

man diesen 

an 

ei ner 


glatten 8K-Grenze ausgerichtet 
hat, um spätere externe 
Erweiterungen nicht durch 
aufwendige Adressdecodierungen 
unnötig zu erschweren. 

Die mit FREI bezeichnete Lücke 
von 3K unterhalb des Basieram 
dient zur Aufnahme einer 
3K-Erweiterung- 
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tEOOO 


•COOO 


•ROOO 


•9000 


•8000 


•2000 
• lEOO 


•0400 

•0000 


BETRIEBSSYSTEM 


BRSIC 


SPIELHODULE ETC. 


EIN- RUSSRBE 


ZEICHENGENERRTOR 


FREI 

VIDEO-RRM 


BRSIC-RRH 

ZEROPRGE,STACK 


2.3 3K-Erweiterung und Super- 
erweiterung 


Diese Konfiguration gleicht im 
Wesentlichen der vorigen. 

Der Basicram beginnt hier 
gleich oberhalb des vom 
Betriebssystem beanspruchten 
Ram. 

Die auf der vorigen Seite noch 
vorhandene Lücke ist hier durch 
eine 3K-Erweiterung aufgefüllt, 
d.h. daß Sie hier mit einem 
Anwenderspeicher von ca. 6 1/2K 
rechnen können. 

Die Supererweiterung enthält 
ebenfalls eine 3K—Erweiterung, 
die auf die gleiche Art wirkt, 
wie oben beschrieben, jedoch 
ist hier noch eine recht 
nützliche Programmierhilfe zur 
Handhabung der hochauflösenden 
Grafik des VC-20 enthalten. 

Diese Software belegt 4K in dem 
Bereich, der in der Zeichnung 
mit SPIELMÜDULE bezeichnet ist. 
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2.4 8K- bis 24K-Erweiterung 


•EOOO 


•COOO 


•ROOO 


#9000 


•8000 


#6000 


#4000 


#2000 


#1200 

#1000 


#0400 

#0000 


BETRIEBSSYSTEM 


BASIC 


SPIELMODULE ETC, 


EIN- AUSGABE 


ZEICHENGENERATOR 


♦ WEITERE BK 


♦ WEITERE 8K 


8K 


BASIC-RRM 

VIDEO-RAM 


FREI _ 

ZEROPACE.STACK 


Die Speichereinteilung, die Sie 
hier sehen, tritt ein, wenn 
Erweiterungen ab 8K verwendet 
werden. 


Auffäl1ig 

hierbei 

ist. 

daß 

der 

Vi deoram 

ei n 

Stück 

tiefer 

gerutscht 

ist, um 

so 

mi t 

dem 


bereits eingebauten Ram eine 
lückenlose Verbindung zur 
Erweiterung zu haben, denn das 
Betriebssystem verlangt für 
Basic einen durchgehenden 
Spei eher- 

Hieraus folgt auch, daß eine 
evtl- ebenfalls eingesteckte 
3K-Erweiterung keine Wirkung 
mehr zeigt. 

Diese kann nun noch zur Ablage 
von Maschinenprogrammen oder 
einzelner Bytes mittels POKE 
benutzt werden. 

Das Farbram hat sich ebenfalls 
verschoben, was Sie aber auf 
der nächsten Seite deutlicher 
sehen. 
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2-5 Die Ein- Ausgabebereiche 


•9C00 


I/O - 3 


99800 


99900 


99400 


99120 

99110 


99000 


1/0 " 2 


FRRBRflM B. ERW- <8K 


FflRBRRH B- ERW- >3K 


TR9TRTUR _ 

Ü3ERP-.JflT3T,-lEC 


VIDEOCONTROLLER 


Hier finden Sie nun eine 
detailliertere Darstellung des 
auf den vorigen Seiten so 
salopp mit EIN- AUSGABE 

bezeichneten Bereichs- 
Beachten Sie bitte als 
Besonderheit die beiden 

möglichen Positionen des 

Farbram. 

Sie sind direkt abhängig von 
der Lage des Videoram und damit 
indirekt auch von der Größe des 
Speicherausbaus. 

Bei den Bereichen 1/02 und 1/03 
handelt es sich um IK-Bereiche, 
die sowohl zum Anschluß von 
Interfaces als auch zur 
Speichererweiterung (allerdings 
nur für Maschinensprache) 
benutzt werden können- 
Da uns bisher keinerlei 
Erweiterungen bekannt sind, die 
diese Bereiche nutzen, haben 
wir hier unser lEC-Bus-Modul 
angesiedelt, welches auf diese 
Weise anderen Modulen nicht den 
Raum nimmt- 
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2.6 32K and mehr 


Aus dem im Abschnitt 2.1 Gesagten geht hervor, daß für eine 
Nutzung als Basicspeicher bei unmodi-fiziertem Betriebssystem 
nur max. 28K in Frage kommen. 

In welchem Adressraum wird jedoch eine Speichererweiterung, 
die über 24K hinausgeht, untergebracht? 

Nun, bei einer Erweiterung um zusätzliche SK bietet sich der 
Bereich an, der eigentlich für Spielmodule und dergleichen 
vorgesehen ist. Man kann diesen Adressraum, es handelt sich 
um den Bereich von SA000(40960) bis $BFFF(49051), ohne 
weiteres mit Ram bestücken. Eines sei hier nocheinmal ganz 
deutlich gesagt: Erwarten Sie nicht, daß sich nun nach dem 
Einschalten das Betriebssystem mit mehr BYTES FREE als zuvor 
meldet. Das Betriebssystem benötigt nämlich als 
Basicspeicher einen zusammenhängenden Bereich, was hier 
nicht mehr der Fall ist, da der Spielebereich durch 
Zeichengenerator und Ein— Ausgabe vom darunter1iegenden 
Speicher getrennt ist. 

Trotzdem kann eine Speichererweiterung in diesem Block 
sinnvoll sein, nämlich dann, wenn Ihre Programme nicht nur 
aus reinem Basic, sondern auch aus Routinen, die in 
Maschinensprache geschrieben sind, besteht. 

Solche Maschinenprogramme können Sie in eben diesem Bereich 
ablegen. Sie vermeiden dadurch, daß der evtl. zu knappe 
Basicram durch Ihre Routinen weiter reduziert wird. 

Denkbar ist auch eine Verwendung dieses Bereiches als 
'Geheimspeicher'. Sie können dort ungehindert Werte 
hineinpoken, beispielsweise Resultate aus Berechnungen, die 
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Sie in später nachzuladenden Programmen weiterverwenden 
möchten. Dieser Speicher wird nämlich beim Laden neuer 
Programme, selbst wenn Sie nicht die üverlaytechnik 
anwenden, nicht gelöscht. 

Eines sollten Sie jedoch dabei beachten: 

Lassen Sie eine solche Technik der Programmierung nicht zur 
Gewohnheit werden, d.h. daß sie die beschriebenen Verfahren 
selbst dann anwenden, wenn keine Notwendigkeit dazu besteht. 
Es könnte ohne weiteres Vorkommen, daß Sie sich zum Beispiel 
eine Programmierhilfe oder dergleichen zulegen, die in eben 
diesem Bereich arbeitet, wozu auch die Supererweiterung 
zählt. Wollen Sie dann Ihre Programme mit einer solchen 
Erweiterung betreiben, so laufen sie nicht mehr, da ja an 
Stelle, wo Ihr Programm Ram erwartet, sich keiner mehr 
befindet. 

Was hat es nun mit Speichererweiterungen auf sich, die 64K 
und mehr beinhalten? 

Wie aus dem in den vorangegangenen Abschnitten Gesagten 
hervorgeht, ist es zunächst schon rein physikalisch nicht 
möglich, mehr als 32K hinzuzufügen, da ja der Rest des 
Adressraumes von Betriebssystem, Basicinterpreter usw. 
beansprucht wird, abgesehen davon, daß das Betriebssystem 
nicht in der Lage ist, einen größeren Speicher zu handhaben. 
Da nun aber diese Grenzen vorgegeben sind, hilft man sich 
bei großen Erweiterungen folgendermaßen; 

Man geht nicht davon aus, daß z.B. 64K Ram im Zusammenhang 
benutzt werden. Deshalb stückelt man die 64K oder mehr in 
kleinere Portionen, z.B. 8K. 
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Diese mundgerechten Happen kann man nun durch geeignete 
Vorrichtungen alternativ dem Rechner anbieten. Dieser 
Vorgang wird auch 'Multiplexen' genannt- 

Der Rechner 'sieht' natürlich nach wie vor nur seine 
beispielsweise 32K Ram, allerdings kann der Anwender 
bestimmen, welcher Ausschnitt aus der großen Erweiterung dem 
Rechner angeboten werden soll. 

Dieses Multiplexen kann je nach Ausführung mehr oder weniger 
komfortabel vor sich gehen. Eine mögliche Nutzanwendung sehr 
großer Spei ehererweiterungen könnte beispielsweise darin 
bestehen, daß in den einzelnen Spei eherSegmenten mehrere 
Basieprogramme vorhanden sind, die man durch entsprechendes 
Umschalten dem Rechner zugänglich macht. Das würde bei 
häufigem Programmwechsel innerhalb einer Problemstellung das 
lästige Nachladen erübrigen. 

Grundsätzlich sollten Sie sich jedoch überlegen, ob Sie zu 
solchen Mitteln greifen wollen, denn Programme, die mit 
einer derartigen Ausstattung rechnen, sind nicht mehr 
transportabel, d.h. sie würden ausschließlich auf 
gleichartig konfigurierten Systemen laufen. 


2.7 Die Modul box VC-1020 und ihre Anwendung 


Die Modul box VC-1020 verfügt über sechs gleichwertige Slots 
(Steckplätze). Gleichwertig heißt, daß Sie ein beliebiges 
Modul in einen beliebigen Slot stecken können. 

Natürlich verleitet das reichliche Vorhandensein von Slots 
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dazu, die Modulbox mit allen Modulen, deren man habhaft 
werden kann, zu bestücken. Daf3 Sie dabei mit Überlegung 
Vorgehen, wollen wir Ihnen in diesem Abschnitt nahebringen. 


Zunächst bietet sich die Modulbox an, Ihren Rechner mit 
Ram-Modulen aufzustocken. Das ist auch problemlos möglich, 
wenn Sie beachten, daß die 8K-Module einen Sonderstatus 
einnehmen, und zwar dergestalt, daß sich im Inneren des 
Modulgehäuses eine von 1-4 numerierte Schalteranordnung 
befindet. 

Falls Sie mehr als ein Speichermodul besitzen, dienen diese 
Schalter dazu, den Speicherblock zu bestimmen, in welchem 
das Modul wirksam werden soll. 

Hier nun die Zuordnung der Schalter zu den Adressbereichen: 


Schalter 4=EIN 
3=EIN 
2=EIN 
1=EIN 


$2000-:$3FFF 

ir4000-:^5FFF 

$6000-:^7FFF 

$A000-$BFFF 


Von diesen Schaltern darf immer nur einer eingeschaltet 
sein, da sich sonst das Modul auf mehreren Adressbereichen 
gleichzeitig angesprochen fühlen würde. 

Zwei Beispiele sollen das Gesagte verdeutlichen. 

Sie besitzen drei 8K-Module. Im ersten sollte der Schalter 
4, im zweiten Schalter 3 und im dritten Schalter 2 in 
Stellung ÜN sein. Alle anderen Schalter müssen in Stellung 
□FF stehen. 

Sie haben ein 16K-Modul und ein 8K-Modul. Im 8K-Modul muß 
der Schalter 2=ÜN sein. Das 16K-Modul verfügt über keine 
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Schalter- 

Sehen Sie hierzu auch die Abbildung in 2-4, 

Bei Schalter 1=ÜN haben Sie den Ram im Spielebereich liegen. 
Beachten Sie dazu bitte auch den Abschnitt 2-6- 


Handelt es sich bei den Modulen um andere als reine 
Speichererweiterungen, so lassen sich solche nicht ohne 
weiteres miteinander betreiben. 

Sie müssen nämlich zunächst -f eststel 1 en, -für welchen 
Adressbereich diese Module vorgesehen sind, da sich mehrere 
Module im gleichen Adressraum nicht vertragen- 

Um Ihnen die Arbeit ein wenig zu erleichtern, hier eine 
Übersicht über die Adressräume und der dafür vorgesehenen 
Module, soweit bekannt: 


$ta400-$0FFF 

^2000-:$3FFF 

^4000-:$5FFF 

^6000-^7FFF 


3K-Ram oder Ram aus der SupererWeiterung 
8K-Ram oder erste Hälfte aus 16K-Ram 
8K-Ram oder zweite Hälfte aus 16K-Ram 
(Maschinensprache—Monitor und Programmers 
oder 8K-Ram 


Aid) 


^9800-«:9FFF DATA BECKER lEC-Bus 

$A000-$BFFF (Superexpander und Commodore lEC-Bus) oder MAXI 
oder 8K-Ram oder Spielmodul 


In der obigen Aufstellung sollten Sie 'oder' bitte als 
exklusiv-oder verstehen, d.h. das Vorhandensein einer 
Möglichkeit schließt eine weitere für denselben Adressraum 
aus. 

Die Möglichkeiten der Zusammenstellung können hier natürlich 
nur rein hardwaremäßig betrachtet werden- über die 
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bestimmter 


Module 


sottwaremäßige Verträglichkeit 

untereinander (dies tri-f-Ft nicht -für reine 

SpeiChererweiterungen zu) kann keine Aussage gemacht werden. 
Eine mögliche Bestückung der Modulbox könnte also so 
aussehen: 

16K—Ram—Modul 

Maschinensprache-Monitor ^ 

Programmers Aid , 

DATA BECKER lEC-Bus 
MAXI 

Wir ho-f-fen, daß wir mit diesem Kapitel 2 Ihnen anschaulich 
vor Augen geführt haben, wie der Speicherraum des VC-20 
sinnvoll zu nutzen ist, und daß Sie beurteilen können, was 
geht und was unmöglich ist. 
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3) Die VC-20 Grafik 


3.1 Grundlagen 


Daß der VC-20 bereits in der Grundversion beachtliche Grafik¬ 
möglichkeiten besitzt, hat zwar jeder bereits einmal irgendwo 
gehört, doch wie man diese Grafik erzeugen kann, ist für die 
Meisten bisher ein Geheimnis geblieben- Im VC—20 Handbuch finden 
Sie diese Möglichkeiten des VC-20 gar nicht erwähnt- In diesem 
Kapitel sagen wir Ihnen, was Sie über das Videochip des VC—20 
wissen müssen, und wie sie mit diesem Wissen hochauflösende 
Grafiken erzeugen können- Sie werden imstande sein, auf der 
Grundversion des VC-20 Grafiken mit einer Auflösung von 128*128 
Punkten und mit Hilfe der normalen 8- bzw. 16K-Erweiterung Gra¬ 
fiken mit einer Auflösung von 168*176 Punkten zu erzeugen. All 
dies werden Sie anhand von Beispielen und lauffähigen Programmen, 
die Sie nur noch abtippen müssen, erlernen- 

Zuerst wenden wir uns dem Video—Chip des VC—20 zu- Dieser 
hochintegrierte Baustein mit der Nummer 6560 ist speziell für 
kleine Computer und Video Spiele entwickelt worden- Mit Hilfe 
seiner 15 Register können Sie alle Betriebsarten des VC-20 
kontrollieren- Von diesem Chip werden nicht nur die Grafik und 
die Farben kontrolliert, sondern es enthält auch die Ton¬ 
generatoren und die AD—Wandler für die Paddies- Auf der nächsten 
Seite finden Sie eine Übersicht über alle Register dieses Chips, 
dann folgt eine Erklärung der einzelnen Register. 
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CRO 

9000 

7 

I 

6 

86 

in 

in cn 

4 

84 

3 

83 

2 

82 

1 

81 

0 

80 

Bitnummer 

Bildschirmanfang 

KRl 

9001 

87 

86 

85 

84 

83 

82 

81 

80 

X-Koordinate 

BiIdschirmanfang 

KR2 

9002 

V9 

M6 

M5 

M4 

M3 

M2 

Ml 

MO 

Y-Koordinate 

Anzahl der Spalten 

KR3 

9003 

RO 

N5 

N4 

N3 

N2 

N2 

NO 

D 

auf dem Schirm 

Anzahl der Reihen 

KR4 

9004 

R8 

R7 

R6 

R5 

R4 

R3 

R2 

RI 

auf dem Schirm 

Rasterwert 

KR5 

9005 

V13 

V12 

VI1 

VIO 

C13 

C12 

eil 

CIO 

Start Schirm + 

KR6 

9006 

LH7 

LH6 

LH5 

LH4 

LH3 

LH2 

LHl 

LHO 

Charactergenerator 

Lichtgriffelposition 

KR7 

9007 

LV7 

LV6 

LV5 

LV4 

LV3 

LV2 

LVl 

LVO 

horizontal 

LichtgriffeiPosition 

KR8 

9008 

PX7 

PX6 

PX5 

PX4 

PX3 

PX2 

PXl 

PXO 

vertikal 

Potentiometerposition 

KR9 

9009 

PY7 

PY6 

PY5 

PY4 

PY3 

PY2 

PYl 

PYO 

horizontal 

Potentiometerposition 

KRa 

900a 

81 

F16 

F15 

F14 

F13 

F12 

Fll 

FlO 

vertikal 

Frequenz Tongenerator 

1 

KRb 

900b 

82 

F26 

F25 

F24 

F23 

F22 

F21 

F20 

1 

Frequenz Tongenerator 

O 

KRc 

900c 

83 

F36 

F35 

F34 

F33 

F32 

F31 

F30 

Frequenz Tongenerator 

KRd 

900d 

84 

F46 

F45 

F44 

F43 

F42 

F41 

F40 

O 

Frequenz Tongenerator 

KRe 

900e 

FA3 

FA2 

FAl 

FAO 

A3 

A2 

Al 

AO 

Rauschen 

Lautstärke + 

KRf 

900^ 

FB3 

FB2 

FBI 

FBO 

R 

FC2 

FCl 

FCO 

Hi1fsfarbe 

Farben 
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Beschreibung der Register : 

In Spalte 1 -finden Sie die Bezeichnung des Registers, in Spalte 2 
die Speicherstel 1 e im RAM, wo dieses Register zu -finden ist- 
Diese Zahlen sind im Hexadezimalsystem. Das erste Register 
be-findet sich also in der Speicherstelle 9000 im 
Hexadezimalsystem bzw« 36864 im Dezimalsystem. Die weiteren 
Register be-finden sich in den folgenden Speicherstel len- 

Erklärung der einzelnen Register : 


KR 


Die Bits 0-6 bestimmen, wieviele Punkte das Bild vom 
linken Rand des Schirms entfernt ist. Es wird benutzt, 
um das Bild horizontal zu zentrieren- Bit 7 bestimmt 
die Zwischenzeilenabtastung. Gewöhnlich steht hier 
eine O. 


KR 1 : Dieses Register bestimmt, wieviele Punkte vom oberen 

Bildschirmrand das Bild beginnt- Es wird benutzt, um 
das Bild vertikal zu zentrieren- 


KR 


Die Bits 0-6 bestimmen die Anzahl der Spalten auf dem 
Bildschirm, d-h- wieviele Buchstaben pro Reihe 
vorhanden sind- Bit 7 entspricht Bit 9 der 
Anfangsadresse der Video—Matrix und gehört zu den Bits 
4-7 des Registers 5- 


KR 


Die Bits 1-6 bestimmen die Anzahl der Bildschirm¬ 
zeilen. Mit Bit O wird festgelegt, ob die Buchstaben 
in einer 8*8 (D=0) oder in einer 8*16 (D=l) Matrix 
dargestellt werden. Die Darstellung der Buchstaben in 
einer 8*16 Matrix ist hauptsächlich für hochauflösende 
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Grafiken gedacht. Wir werden davon Gebrauch machen, 
wenn wir die Grafik mit der Auflösung von 168*176 
Punkten erstellen. Bit 7 ist Teil des Wertes in 
Register 4. 

Dieses Register enthält die Nummer der Zeile, die 
gerade von dem Rasterstrahl bearbeitet wird- 

Die Bits 0—3 sind die Bits 10—13 der Startadresse für 
den Charactergenerator. Die Bits 4-7 bilden zusammen 
mit Bit 7 aus Register 2 die Bits 10 bis 13 der 
Startadresse des Video-RAM. 

Dieses Register enthält die horizontale Position des 
Lichtgriffel. 

Dieses Register enthält die vertikale Position des 
Lichtgriffels. 

Dieses Register enthält den digitalisierten Wert des 
Potentiometers 0. 

Dieses Register enthält den digitalisierten Wert des 
Potentiometers 1. 

Die Bits 0—6 bestimmen die Frequenz des Tongenerators 
1, Bit 7 schaltet diesen Tongenerator ein (S=l). 

Die Funktion dieses Registers entpricht der des 
Registers a, nur für Tongenerator 2. 


KR c 


Die Funktion dieses Registers entspricht der des 

Registers a, nur tür Tongenerator 3. 

KR d ; Die Funktion dieses Registers entspricht der des 

Registers a, nur für den Rauschgenerator. 

kr e : Die Bits 0-3 bestimmen die Gesamtlautstärke der Ton¬ 

generatoren. Die Bits 4—7 bestimmen die Hilfsfarbe, 
wenn der "Vielfarb"-Betriebsmodus eingeschaltet ist- 

KR f : Die Bits 0-2 bestimmen eine der 8 Farben für den 

Bildschirmrahmen. Die Bits 4-7 bestimmen die 
Hintergrundfarbe des Bildschirms. Das Invertierungsbit 
R bestimmt, ob verschiedenfarbene Buchstaben auf 

einem einheitlichen Hintergrund (R=l) dargestellt 
werden, oder ob die Darstellung invertiert wird (R=0), 
d-h. alle Buchstaben haben die gleiche Farbe (bestimmt 
durch die Bits 4-7 des f-Registers) und der Hintergrund 
jedes Buchstaben vom Wert des Färb—RAM bestimmt wird- 

Wenn Sie die vorangegangenen Seiten aufmerksam durchgelesen 
haben, werden Sie festgestellt haben, daß es keinen eigentlichen 
hochauflösenden Grafikmodus gibt. Sie werden aber auch 
festgestellt haben, daß sich sowohl das Video—RAM als auch der 
Charactergenerator verschieben lassen. Das verantwortliche 
Register ist hier das Kontrol1register 5. Außerdem gibt es die 
Möglichkeit, die Zeichen in einer 8*16 Matrix darzustellen. Wir 
werden nun zuerst ein bißchen mit dem Charactergenerator spielen 
und Ihnen anschließend zeigen, wie sie so hochauflösende Grafiken 
erz'eugen können. 
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3.2 Programmierbare Zeichen 


Der Charactergenerator beginnt normalerweise ab der 
Speicherstelle 32768. Mit Hilfe des Kontrol1registers 5 können 
wir nun die Startadresse in den RAM-Bereich verlegen. Die 
folgenden Tabelle gibt Ihnen Auskunft, welche Werte Sie in dieses 


Register schreiben müssen, um 
bestimmte Stelle zu verschieben. 

Inhalt KR5 Speicherstelle 


240 

32768 

241 

33792 

242 

34816 

243 

35840 

244 

(36864) 

245 

(37888) 

246 

(38912) 

247 

(39936) 

248 

(0) 

249 

(1024) 

250 

(2048) 

251 

(3192) 

252 

4096 

253 

5120 

254 

6144 

255 

7168 


den Charactergenerator an eine 

Inhalt der Speieherstel1e 
Charactergenerator ROM 
Charactergenerator ROM 
Charactergenerator ROM 
Charactergenerator ROM 
Videochip 
Farb-RAM 
nicht wählbar 
nicht wählbar 
Null-Seite 

RAM bei Speichererweiterung 

RAM bei SpeichererWeiterung 

RAM bei Speichererweiterung 

BASIC-Start 

RAM 

RAM 

RAM 


Der normale Inhalt des Kontrol1registers 5 ist entweder 240 bei 
Großbuchstaben mit Graphik oder 242 bei Klein- und 
Großbuchstaben. Bei dieser Tabelle liegt das VideoRAM ab 
Speicherstelle 7680. 
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Nehmen Sie nun alle Speichererweiterungen aus Ihrem VC-20 und 
tippen Sie das -folgende kleine Programm ein: 

5 PÜKE 52,20:POKE 56,20:CLR 
10 FORI =0702047: PÜKE5120+I,PEEK (32768-<-I) :NEXTI 
20 PÜKE 36869,253 

In Zeile 5 setzen wir den für BASIC verfügbaren Speicherplatz 
herunter, um den Charactergenerator vor dem überschreiben zu 
schützen- In Zeile 10 kopieren wir den Charactergenerator aus dem 
ROM in den RAM-Bereich ab Speicherstelle 5120. Mit Zeile 20 
schließlich versetzen wir den Zeiger auf den Zeichengenerator auf 
die Speicherstelle 5120. Wenn Sie nun Buchstaben eintippen, 
stellen Sie fest, daß sich nichts verändert hat- Da wir bis jetzt 
auch nur den Charactergenerator kopiert haben, ist dies auch 
korrekt. Tippen Sie nun die folgenden Zeilen ein: 

30 F0RI=0T07: READA: P0KE5128-4-I, A: NEXT 
100 DATA 255,129,129,129,129,129,129,255 

Lassen Sie das Programm laufen- Sofort verändern sich alle "A s 
auf dem Bildschirm zu kleinen Quadraten. Wenn Sie nun ein "A" 
eintippen, so erhalten Sie jetzt immer ein kleines Quadrat auf 
dem Bildschirm. Beachten Sie aber, daß dieses kleine Quadrat 
immer noch als "A" funktioniert. Befehle wie "LOAD” oder "SAVE" 
mögen jetzt vielleicht etwas komisch aussehen, funktionieren aber 
weiterhin. 

Wie funktioniert nun der Zeichengenerator? Alle Buchstaben und 
graphischen Zeichen des VC-20, die auch auf der Tastatur 
abgebildet sind, werden aus einer 8*8 Matrix aufgebaut- Eine 
solche Matrix sieht also folgendermaßen aus: 
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stellen Sie sich nun vor, jede Reihe entspricht einem Byte, also 
einem Speicherplatz, und jeder der 8 Punkte einem Bit dieses 
Bytes, Das linke Bit soll die größte Wertigkeit haben. Von links 
beginnend, haben die 8 Stellen die Wertigkeiten 
128,64,32,16,8,4,2,1 . Wenn nun ein Punkt gesetzt ist, so wird 
der entsprechende Wert in die Speicherstelle addiert. Dazu wieder 
ein Beispiel ; 


0 



Ti 


i 

0 

0 

SL 

A 

'1 

0 

Q 

Q 

A 

Ö 

0 

<? 


0 

0 

0 

A 

Ö 

0 

0 

1 

1 

A 

1 

0 

Sl 

J2. 

0 

i 

0 

0 

0 

i 

0 

0 

A 

A 

0 

ö 

0 

A 

ö 

Sh 


± 

'1 

A 

A 

4 

6 

0 

0 

0 

0 

0 

0 

0 

0 


Diese Matrix entspricht dem Buchstaben B. Die Werte der 
Speicherstellen von oben nach unten sind 124,34,34,60,34,34, 
124,0. Tippen Sie nun die folgende Zeile ein: 
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FÜRI=5136T05143:PRINTPEEK(I):NEXT 


Sie sehen, sie erhalten die gleichen Werte. 

Fassen wir zusammen: Alle Zeichen werden in einer 8*8-Matrix 
dargestellt. Die 8 Reihen werden im Charactergenerator 
hintereinander abgespeichert. 

Sie sehen, daß es nun -für Sie ein leichtes ist, Ihren Zeichensatz 
zu verändern, zum Beispiel könnten Sie Ihrem VC—20 die deutschen 
Umlaute ä,ö,ü und ß beibringen. Doch wie kommen wir nun zu der 
versprochenen hochau-f 1 ösenden Gratik? 

Vielleicht ahnen Sie die Antwort bereits. Ganz einfach, wir 
schreiben den Bildschirm mit verschiedenen Zeichen voll und 
programmieren diese so, wie wir sie benötigen. Da wir nur 256 
verschiedene Zeichen haben, können wir leider nicht den gesamten 
Bildschirm ausnutzen. Wir können pro Reihe 16 Zeichen 
unterbringen. Bei einer Auflösung von 8 Punkten pro Zeichen 
ergibt sich, daß wir 8*16=128 Punkte ansteuern können. Das 
Gleiche gilt für die vertikale Richtung. Wir benötigen demnach 2K 
Speicherplatz für die Grafikseite, so daß uns bei der 
Grundversion des VC-20 noch 1,5 K für Programme zur Verfügung 
stehen. Sie werden nun sicher sagen, dies sei nicht viel. Daß 
sich aber auch in diesem Speicherplatz bereits vernünftige 
Programme unterbringen lassen, zeigen wir Ihnen mit dem folgenden 
Programm. Es ist ein Funktionenplotter, mit dessen Hilfe Sie alle 
Funktionen zeichnen können. Tippen Sie nun das folgende Programm 
ein: 
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5 POKE52,20:POKE56,20:CLR 
10 PRINT-U" 

20 PRINT"GEBEN SIE DEN STARTPUNKT EIN "tINPUTS 
30 PRINT-GEBEN SIE DEN ENDPUNKT EIN INPUTE 
40 PRINT"S0LL DAS ALTE BILD GELDESCHT WERDEN < J/N.) 
50 GET A.S: IFA$=" "THEN50 
70 PRINT"J" 

80 PDKE36869,E53:P0KE36879,8 
84 PRINT"J" :FORR=0TD15:FDRL=0TO15 
90 PDKE7680+R*22+L,R*16+L 

100 NEXTL,R 

101 P0KE36869,253:P0KE36879,8 

102 IFA.5< >"wT"THEN130 

103 FDRI=5120TD7168:POKEI,0:NEXT 

104 FORU=0TO127:Y=64:GOSUB1000:NEXT 

105 FDRY=0TD127:U=64:GOSUB1000:NEXT 
130 U=0:FORX=STOESTEP<E-S)/127 

135 IFX=0THEN170 
140 GOSUB2000 
150 Y=64-Y*64 
160 GOSUB1000 
170 U=U+1 
180 NEXTX 

190 GETA«:IFA$=""THEN190 

200 GOTO200 

210 END 

1000 AD=5120 

1010 AY=INT<Y/8)*128+<YAND7) 

1020 AD=AD+8*INT( U/8)+AY 
1030 MA=2t< 7-< UAND7) ) 

1040 POKEAD,PEEK<ADJORMA 
1050 RETURN 
2000 Y=COS<X> 

2010 RETURN 

READY. 
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Erläuterungen zu diesem Programm: 


Zeile 5 : 
Zeile 90: 

Zeile 101: 

Zeile 103: 

Zeile 104: 
Zeile 105: 
Zeile 130- 
180: 
Zeile 1000 
-1050: 
Zeile 2000: 


Der -für BASIC ver-fügbare Speicherplatz wird begrenzt 
Der Bildschirmspeicher wird mit den Zeichen 

beschrieben. 

Der Zeiger auf den Zeichengenerator und die Farbe 
werden gesetzt- 

Der Charactergenerator wird gelöscht, d.h. der 

Bildschirm leert sich- 

Die X-Achse wird gezeichnet. 

Die Y-Achse wird gezeichnet. 

Die Funktion wird gezeichnet. 

Die X und Y-Werte werden umgerechnet und die Punkte 
mit der Anweisung in Zeile 1040 gezeichnet. 

Hier steht die Funktion, die gezeichnet werden soll. 


Lassen Sie das Programm nun laufen. Menn Sie als Anfangspunkt — 
3.14 und als Endpunkt 3.14 wählen und die Frage nach dem Löschen 
mit "J" beantworten, werden Sie eine schöne Kosinuskurve auf dem 
Bildschirm sehen. 

Wenn das Bild fertig ist, brechen Sie die Endlosschleife in Zeile 
200 durch Drücken der RUN/STOP und RESTORE Taste ab. Ändern Sie 
nun Zeile 2000, schreiben Sie dort zum Beispiel die Funktion 
Y=SIN(X)/X hinein. Starten Sie nun das Programm, geben Sie als 
Grenzen -15 und 15 ein und beantworten Sie die Fragen nach dem 
Löschen mit "N". Sie sehen, daß die alte Kurve noch vorhanden 
ist. Die neue Kurve wird nun einfach dazugezeichnet. Dies können 
Sie mit immer wieder neuen Funktionen so oft wiederholen, wie Sie 
möchten. 
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3-3 Laufschrift 


Als weitere Anwendung des Charactergenerators möchten wir Ihnen 
nun noch zeigen, wie Sie riesengroße Buchstaben auf dem Bild¬ 
schirm und damit eine weithin lesbare Laufschrift erzeugen 
können- 

Das Prinzip ist ganz einfach: 

Sie speichern einen Text in eine Variable. Diesen Text gehen Sie 
Buchstabe für Buchstabe durch und holen sich den entsprechenden 
Code aus dem Charactergenerator- Für jedes gesetzte Bit schreiben 
Sie nun je nach Vergrößerung einen oder zwei Zeichen auf dem 
Bildschirm. Dann verschieben Sie den ganzen Bildschirm nach links 
und nehmen sich den nächsten Buchstaben vor- Sind Sie am Ende 
Ihres Textes angelangt, fangen Sie wieder von vorne an- Auf diese 
Art und Weise erhalten Sie praktisch eine sich endlos wieder— 
holende Schriftrolle. 

Auf der nächsten Seite finden Sie das Listing zu einem 
Laufschriftprogramm- Es kann einen Text, der bis zu 255 Zeichen 
lang sein darf, in 4 verschiedenen Größen über den Bildschirm 
laufen lassen. Das Programm unterteilt sich in fünf Teile- Im 
ersten Teil bis Zeile 90 werden die Anfangsvariablen gesetzt, der 
Text eingelesen und der Vergrößerungsfaktor gewählt. Entsprechend 
diesem Faktor wird nun in einen der vier nachfolgenden 
Programmteile verzweigt- Ihnen wird auffallen, daß die 
Programmteile 3 und 4 fast identisch sind. Aus Gründen der 
Übersichtlichkeit haben wir darauf verzichtet, diese in einen 
Teil zusammenzufassen. 

Auf der nächsten Seite nun das Listing, danach noch Erläuterungen 
zu den wichtigsten Programmzeilen- 
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0 REM **★* LRUFSCHRIFT **** 

1 P0KE56,24:P0KE52,24:CLR 

2 VA =4096:BB=22:ZZ =22:FA=37888:CG=32768 

3 FÜRI=6144TÜ7417STEP2 

4 POKEI^PEEKC CG):POKEI + 1,PEEK< CG):CG=CG+1:NEXTI 

5 CG=32768:P0KE36879,8:PRINT"ai" !REM "3" ENTSPRICHT CTRL/2 (FARBE UIEISS) 

6 DIM* US( 15) 

10 PRINTCHR$( 147) 

20 PRINT"GEBEN SIE IHREN TEXT EIN":INPUTA^ 

30 PRINT"GEBEN SIE DEN VERGROESERUNSFAKTOR EIN :":INPUTV 
40 IFV<1ANDV>4THEN30 
50 PRINTCHR$( 147) 

55 X=0:Y=ZZ/2 

90 ONVGOTO100,1000,2000,3000 
100 F0RJ=lTÜZZ/2+l:PRINT:NEXT 

105 UI$=AS: IFLEN< A$) >BBTHENW«=LEFT$< UJ$,BB ) : A$=R IGHT^C AS,LEN( AS)-BB) + " " :G0T01 10 

106 IFLENC A$)< BBTHENFDRQ= 1T0BB-LEN< W$) :UI$=UI$+" " : NEXTQ : AS=R IGHTS< A«,BB-LEN( Ul^) ) + 

1 10 Z«=LEFT$< Ul^, 1 ) ! UI$=R IGHT$( U»,BB- 1 ) +LEFT$( A^, 1 ) 

120 A$=RIGHT$*: A$,LEN( AS)-1 )+ZS 
130 PRINTCHRSC 145);CHRS( 145);UIS 
135 FORUI=QTO100:NEXT 
140 GOTOl10 

1000 FGRJ=0TO7:FORI=0TOBB:UJS( J)=U»< J) + “ ":NEXTI,J 
1005 PRINTCHRS( 147 ) ; :FORI = 1T07sPR INT:NEXT 
1010 FÜRI=1T0LEN<AS) 

1020 ZS=MIDS( AS, I , 1 ) 

1030 ZZ=CG+( ASC( ZS)-64)*8 
1040 IFASCCZS)=32THENZZ=6654 

1050 FORBI=7TO0STEP-1:FORR=0TO7:Z=PEEK( ZZ+R):Z=ZAND2tBI 
1070 IFZ =2tB ITHENWSC R)=RIGHTS( UIS< R) ,BB-1 ) + "*" :GOTÜ1090 
1080 UJS( R)=RIGHTS( US( R) ,BB-1 ) + " " 

1090 NEXTR 

1300 FORJ=0TO7:PRINTUJS( J ) ,* :NEXTJ 
1350 F0RP=1T08:PRINTCHRS<145);:NEXTP 
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1400 NEXTBI 
1500 NEXTI 
1600 GOTO1010 

2000 FORJ=0TO15:FORI=0TOBB: UJ$< J)=UJ$( J) + '’ ":NEXTI,J 
2005 PRINTCHR^ 147):PRINT:PRINT: 

2010 F0RI = 1T0LEN( A$) 

2020 Z$=MID*( I,1) 

2030 ZZ=CG+<ASC<Z«)-64)*8 
2040 IFftSCC Z^)=32THENZZ =6654 

2050 FORBI=7TO0STEP-1:FORR=0TO15:Z=PEEK< ZZ + INT( R/2)):Z=ZAND2tBI 

2070 IFZ=2tBITHENUm R)=RIGHT« UJS< R) ,BB-1 ) + "«" :R=R+1 :UJ$< R)=RIGHT$< R) ,BB-1 ) + "*" 
:GOTO 1090 

2080 UÖJ( R)=RIGHT$< Ui*( R) ,BB-1 ) + " " : R=R+1 : W« R ) =R IGHT$( Ul$< R ) ,BB-1 ) + " " 

2090 NEXTR 

2300 FORJ =0TO15:PR INTU*< J);:NEXTJ 

2350 F0RP=1T016:PRINTCHR^ 145);:h4EXTP 

2400 NEXTBI 

2500 NEXTI 

2600 GOTO2010 

3000 POKE 36865,19 

3010 POKE 36879,47 

3020 POKE 36867,89 

3030 POKE 36869,254 

3040 F0RJ=1T09:PRINT:NEXT 

3050 GOTO 105 

REf=iDY. 
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Teil 2 dieses Programms geht von Zeile 100 bis Zeile 140. In 
diesen Programmteile kommen Sie, wenn Sie den Vergrößerungsfaktor 
1 wählen, d.h. der Text erscheint in Originalgröße- In Zeile 100 
wird der Cursor auf die mittlere Bildschirmzeile gesetzt, Menn 

der Text länger als die Bildschirmzeile ist, wird in Zeile 105 

der Text in zwei Teile gespalten. Die Variable enthält den 
linken Teil des Textes, entsprechend der Breite des Bildschirms- 
Die Variabel enthält den restlichen Text. Ist die Länge des 

Textes kleiner als die Breite des Bildschirms, so wird die 

Variable mit soviel Leerzeichen aufgefüllt, bis die Länge von 
der Zeilenbreite entspricht. Der Variablen A:^ wird nun ein 
Leerzeichen hinzugefügt. In Zeile 110 wird der linke Buchstabe 
der Variablen der Variablen IS zugewiesen. Dieser Buchstabe 
wird nun aus entfernt und der linke Buchstabe aus A^ 

hinzugefügt. In Zeile 120 nun wird der linke Buchstabe aus A^: 
entfernt und ZS hinzugefügt. Dann wird ausgedruckt, in Zeile 
135 eine Warteschleife abgearbeitet und danach wieder weiter 
geschoben. Sie sehen, daß die eigentliche Verschiebung nur aus 
den Zeilen 110 und 120 besteht. Sollte die Laufschrift Ihnen zu 
langsam oder zu schnell sein, so können Sie Zeile 135 
entsprechend verändern- 

Teil 3 und 4 des Programms sind wie schon erwähnt fast identisch. 
Wir wollen hier deshalb nur Teil 3 erklären. In Zeile 1000 werden 
die Variablen W$(J) mit soviel Leerzeichen gefüllt, wie der 
Bildschirm breit ist- Der PRINT-Befehl in Zeile 1005 bewirkt ein 
Löschen des Bildschirms und die Positionierung des Cursors auf 
der mittleren Zeile. Zeile 1010 startet eine Schleife, die alle 
Buchstaben des Textes in der Variablen Aif durchgeht. In Zeile 
1020 wird der laufende Buchstabe der Variablen ZS zugewiesen und 
in Zeile 1030 die Position im Charactergenerator errechnet, wo 
die Matrix dieses Buchstabens abgespeichert ist- Die Formel dafür 
lautet Startposition des Charactergenerators (CG) plus 8 mal 
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der Differenz aus ASCII-Code und der Zahl 64. In ZZ steht nun 
also die Startposition der Matrix für den Buchstaben. Eine 
Ausnahme bildet lediglich das Leerzeichen. Es wird deshalb in 
Zeile 1040 gesondert behandelt. Beachten Sie , daß sie nur 
Großbuchstaben verwenden dürfen. Diese Matrix wird nun spalten¬ 
weise abgearbeitet. Zuerst wird das höchste Bit der ersten Reihe 
der Variablen Z zugewiesen. Ist dieses Bit gesetzt, so wird in 
Zeile 1070 ein Graphikzeichen der Variablen zugefügt und 
gleichzeitig das linke Zeichen entfernt. Ist dieses Bit nicht 
gesetzt, so wird ein Leerzeichen hinzugefügt. Das Gleiche 
geschieht nun mit dem höchsten Bit der zweiten Reihe u.s.w. 
Danach wird das zweithöchste Bit bei allen 8 Reihen bearbeitet, 
dann das dritthöchste bis zum niedrigsten. Anschließend wird der 
nächste Buchstabe bearbeitet und wenn der ganze Text auf dem 
Bildschirm erschienen ist, fängt das Programm wieder beim ersten 
Buchstaben an. 

Im Teil 4 ist der einzige Unterschied zu Teil 3 die Schleife mit 
der Variablen R. Diese Schleife läuft hier doppelt so lange. Das 
Anfügen der Buchstaben bzw. der Leerzeichen geschieht hier für 
Jedes Bit zweimal. Dadurch ergibt sich, daß die Buchstaben 
doppelt so groß werden wie in Teil 3. 

In Teil 5 schließlich ab Zeile 3020 wird die Darstellung der 
Zeichen etwas verändert. Der PÜKE-Befehl in Zeile 3020 bewirkt, 
daß die Zeichen in doppelter Größe dargestellt werden. Dazu 
gehören auch noch die Zeilen 1,4 und 5 . In Zeile 1 wird der für 
BASIC verfügbare Speicherplatz heruntergesetzt. In den Zeilen 4 
bis 5 wird der Charactergenerator ins RAM kopiert, wobei er 
derart verändert wird, daß Jede Reihe eines Zeichen zweimal 
hintereinander gespeichert wird. In Zeile 3030 wird der Zeiger 
auf den Charactergenerator umgesetzt. Die Zeilen 3000 und 3010 
bewirken die Formatierung des Bildschirms und die Auswahl der 
Farbe. 
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3.4 Grafik mit Speichererweiterung 


Für die -folgenden Programme benötigen Sie mindestens eine 8K— 
Speichererweiterung. Sie werden in diesem Kapitel zuerst eine 
Grafik mit einer Auflösung von 168*176 Punkten kennenlernen, 
anschließend zeigen wir Ihnen ein Maschinenspracheprogramm , das 
die Handhabung der Grafik erheblich beschleunigt, dann einen 
etwas komfortableren Funktionenplotter und noch einige Grafiken, 
die einfach schön anzusehen sind. 

Doch zuerst müssen wir auch hier wieder etwas Theorie 
einschieben. Im Prinzip werden wir jetzt wieder das Gleiche 
machen wie ohne Speichererweiterung. Wir werden also den 
Charactergenerator wieder in den RAM-Bereich verschieben und den 
Bildschirm mit 240 verschiedenen Zeichen füllen. Sie fragen sich 
nun, wie die höhere Auflösung entsteht? Blättern Sie doch einmal 
kurz zu der Erklärung des KontrolIregisters 3 (Seite ) zurück. 
Dort steht, daß es die Möglichkeit gibt, mit einem Bit auf eine 
Darstellung der Zeichen in einer 8*16 Matrix umzuschalten. Genau 
davon machen wir jetzt Gebrauch. 

Stecken Sie mindestens eine 8K-Speichererweiterung in Ihren 
Rechner und schalten Sie das Gerät ein- Wir benötigen für die 
Grafikseite jetzt 4K-RAM Speicherplatz. Aus diesem Grund verlegen 
wir nun zuerst den BASIC-Start um 4K nach oben- Tippen Sie 
Folgendes ein: 

PaKE44,34:PÜKE34*256,O:NEW 

Wenn Sie nun den Befehl PRINTFRE(I) eingeben, müßten 4K weniger 
Speicher zur Verfügung stehen als beim Einschalten. 

Wir werden Ihnen nun anhand eines kleinen BASIC-Programms die 
Grafik zeigen, bevor wir die Sache mit Hilfe von Maschinensprache 
etwas beschleunigen. Tippen Sie nun das folgende Programm ein: 
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20 GOSUB10000 


30 F0RI=-rfT0,fSTEP2*rf/167 
40 X=U:Y=SINK I)*88+88 
50 GOSUB10200:U=U+1:NEXT 
60 GETA*: IFA$='* “THEN60 
70 GOSUB10100:END 


10000 

REM UMSCHALTUNG AUF GRAFIK 

10030 

PR INT” J" :FORI=4352X08047:POKEI,0:NEXT 

10040 

P0KE36867,151:P0KE36866,21:P0KE3G869,204 

10050 

P0KE36864,14 

10060 

FORI=16X0255:POKE4096+I-16,1:P0KE37888+I-16,6:NEXTI 

10070 

RETURN 

10100 

REM UMSCHALTUNG AUF TEXT 

10130 

P0KE36864,12:P0KE36866,22:P0KE36867,174 

10140 

P0KE36869,192:PRINT"iJ’• 

10150 

RETURN 

10200 

REM PUNKT SETZEN 

10230 

GOSUB10400 

10240 

POKEAD,PEEK<AD) OR MA 

10250 

RETURN 

10400 

AD=4352 

10410 

AY=INT< Y/16)*336+( YAND15) 

10420 

AD=AD + 16*INT< X/8)+AY 

10430 

MA=2t<7-<X AND 7)) 

10440 

RETURN 

READY. 
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Mit dem vorstehenden Programm können Sie eine Sinuskurve auf dem 
Bildschirm zeichnen. 

Die Zeilen 30 bis 70 enthalten nur die übliche FÜR-NEXT-Schleife 
zur Berechnung der Sinus-Werte. Interessant sind erstmal die 
Zeilen 10030 bis 10050. In Zeile 10030 wird der 
Charactergenerator gelöscht- Das kennen Sie bereits aus der 
Grafik mit der GrundVersion des VC-20, nur daß der 
Speicherbereich hier ein anderer ist. Die vier PÜKE—Befehle in 
den folgenden beiden Zeilen müssen wir uns aber nun etwas genauer 
ansehen. 

Halten Sie die Tabelle mit den KontrolIregistern des Videochip 
bereit- Wir erklären Ihnen nun die vier POKE-Befehle sehr 
ausführlich, da Sie für das Verständnis der Grafik ganz wichtig 
sind- Anhand der binären Darstellung der Werte können Sie genau 
erkennen, welche Bits der Register gesetzt werden- 

1) PÜKE 36867,151 151 (DEZIMAL) = 10010111 (BINäR) 

Dieser PÜKE-Befehl belegt das KontrolIregister 3 mit dem Wert 
151- Bit O ist dafür verantwortlich, daß die Darstellung in 
einer 8*16 Matrix gewählt wird. Die Bits 1 bis 5 bestimmen die 
Anzahl der Zeilen der Video Matrix, hier werden 11 Reihen 
festgelegt. 

2) PÜKE 36866,21 21 (DEZIMAL) = 00010101 (BINäR) 

Dieser PÜKE-Befehl belegt das KontrolIregister 2 mit dem Wert 
21. Dies bedeutet, daß pro Zeile 21 Zeichen zur Verfügung 
stehen- 

3) PÜKE 36869,204 204 (DEZIMAL) = llOOllOO (BINäR) 

Dieser PÜKE-Befehl belegt das Kontrol1register 5 mit dem Wert 
204- Daraus resultiert für das Video-RAM und den 
Charactergenerator die Startadresse 4096- 
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4) POKE 36864,14 14 (DEZIMAL) = 00001110 (BINäR) 

Dieser POKE-Befehl belegt das Kontrol1register 0 mit dem Wert 
14. Dies bedeutet, daß wir den Bildschirm horizontal 
zentrieren¬ 


in Zeile 10060 wird der Bildschirm mit den verschiedenen Zeichen 
gefüllt, wie Sie das auch schon von der Grafik in der 
Grundversion kennen. Gleichzeitig wird das Farb-RAM 
initialisiert. Im Unterprogramm ab Zeile 10400 werden die X- und 
Y—Werte wieder in die entsprechenden Speicherstellen umgerechnet. 
®®^*^hten Sie, daß im Unterschied zur Grafik in der Grundversion 
die Y-Werte hier mit der Zahl 16 berechnet werden. In Zeile 10240 
wird dann der eigentliche Punkt gesetzt. 

In den Zeilen 10130 und 10140 wird der alte Zustand wieder 
hergestellt, d.h. es wird wieder in den Text-Modus geschaltet. 

Fassen wir zusammen: 

Wir haben auf dem VC-20 mit mindestens SK-Speichererweiterung 
eine Grafik mit einer Auflösung von 168*176 Punkten erzeugt. Die 
Speichererweiterung ist notwendig, da allein für die Grafik 
bereits 4K Speicher benötigt werden. Die Grafik wird mit Hilfe 
der programmierbaren Zeichen erzeugt. Dreh- und Angelpunkt ist 
hierbei das Kontrol1register 5 des Videochip, mit dessen Hilfe 
der Charactergenerator in den RAM-Bereich verlegt werden kann. 
Wichtig ist weiterhin die Umschaltung auf die Darstellung der 
Zeichen in einer 8*16 Matrix, die mit Hilfe des Bits 0 im 
KontrolIregister 3 geschieht- 
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3.5 Gra-fikhilfe mit Maschinensprache 


All dies haben wir bis jetzt von BASIC aus gemacht. Dadurch 
ergeben sich erhebliche Wartezeiten, besonders bei der 

Initialisierung der Grafik. Um dieses Manko auszuräumen, haben 
wir- eine universelles Grafikprogramm in Maschinensprache 

erstellt. Das Assembler1isting zu diesem Programm finden Sie auf 
den nächsten Seiten. Wenn Sie einen Monitor oder einen Assembler 
besitzen, können Sie es so abtippen. Damit Sie aber auch als nur 
BASIC-Programmierer in den Genuß dieses Programms kommen können, 
finden Sie nach dem Assemblerlisting ein BASIC-Programm, das in 
den DATA-Zeilen das Maschinenspracheprogramm enthält. Tippen Sie 
dieses Programm ab. Es prüft die Summe aller Zahlen, um sich zu 
vergewissern, daß Sie nichts falsch abgetippt haben- Bevor Sie 
das Programm laufen lassen, speichern Sie es unbedingt vorher ab, 
damit es sich bei eventuellen Tippfehlern nicht selber löscht- 
Bevor Sie beginnen, tippen Sie zuerst die folgende Zeile ein: 
PÜKE44,34:PaKE34*256,O:NEW 

Mit dieser Zeile wird wieder der BASIC-Start hochgesetzt, um 
Platz für die Grafikseite und das Maschinenspracheprogramm zu 
schaffen- Diese Zeile müssen Sie jedesmal eintippen, bevor Sie 
mit der Grafik und dem Programm arbeiten können!! Sollten Sie 
dies vergessen, löscht sich das Programm selbst- 

Beachten Sie, daß sich Charactergenerator und VideoRAM 
überlappen. Die praktische Konsequenz daraus ist, daß Sie keine 
Eingaben machen können, ohne Ihr Bild zu zerstören- Aus diesem 
Grund finden Sie in den Grafikprogrammen die Abfrage zum Namen 
des Bildes zu Beginn des Programms- 


39 


2 


100: 

2000 





.OPT PI 



130: 

2000 




XCOORD 

= 

^14 



140: 

2000 




FLAG 

= 

$97 

; 

PUNKT SET2EN/L0ESCHEN 

150: 

2000 




MASKE 

= 

FLAG 

; 

MASKE FUER HARDCOPY 

160: 

2000 




SA 

= 

$B9 

; 

SEKUNDAERADRESSE 

170: 

2000 




TMP 

= 

$FD 



180: 

2000 




ADR 

= 

TMP 



190: 

2000 




AV 

= 

T^F 



220: 

2000 




COLLO 


$9400 

; 

ANFANG HI-RES FARBRAM 

230: 

2000 




COLHI 

= 

$9600 

; 

ENDE 

240: 

2000 




GRALO 

= 

$1 100 

; 

ANFANG HI-RES BITMAP 

250: 

2000 




GRAHI 

= 

$2000 

; 

ENDE 

260: 

2000 




GETCOR 


$D7EB 

; 

HOLT X- UND Y-COORDINATEN 

270: 

2000 




CHKCOM 

= 

$CEFD 

; 

PRUEFT AUF KOMMA 

280: 

2000 




GETBYT 

= 

$D79E 

; 

HOLT BYTE-WERT 

290: 

2000 




VIDEO 

= 

$9000 

; 

VIDEOCONTROLLER 

300: 

2000 




GETPAR 

= 

$E1D1 

; 

HOLT FILENAMEN UNO GERAETENUMMER 

310: 

2000 




CLRSCR 

= 

$E55F 

; 

LOESCHT BILDSCHIRM 

340: 

2000 




LOAD 

= 

$FFD5 

. ; 

LOAD ROUTINE 

350: 

2000 




SAVE 

= 

$FFD8 

'■ 

SAVE ROUTINE 

370: 

2000 





* = 

$2000 

; 

SPRUNGTABELLE FUER FUNKTIONEN 

380: 

2000 

4C 

IB 

20 


JMP 

INIT 

; 

GRAFIK-MODUS EINSCHALTEN 

390: 

2003 

4C 

3E 

20 


JMP 

CLEAR 

; 

GRAFIK LOESCHEN 

400: 

2006 

4C 

55 

20 


JMP 

COLOR 

; 

FARBE SETZEN 

410: 

2009 

4C 

71 

20 


JMP 

REVERS 

; 

GRAFIK INVERTIEREN 

420: 

200C 

4C 

80 

20 


JMP 

SET 

; 

GRAFIKPUNKT SETZEN 

430: 

200F 

4C 

8ft 

20 


JMP 

RESET 

; 

GRAFIKPUNKT LOESCHEN 

440: 

2012 

4C 

45 

21 


J^F 

GLOAD 

; 

GRAFIK LADEN 

450: 

2015 

4C 

2C 

21 


JMP 

GSAVE 

; 

GRAFIK ABSPEICHERN 

470: 

2018 

4C 

54 

21 


JMP 

GOFF 

'■ 

GRAFIK AUS 

490: 

20 IB 

A9 

97 


INIT 

LOA 

«151 


GRAFIK EIN 

500: 

201D 

80 

03 

90 


STA 

36867 



510: 

2020 

A9 

15 



LOA 

«21 



510: 

2022 

8D 

02 

90 


STA 

36866 



520: 

2025 

fi9 

CC 



LOA 

«204 



520: 

2027 

8D 

05 

90 


STA 

36869 



540: 

202A 

f\9 

0E 



LOA 

«14 



540: 

202C 

80 

00 

90 


STA 

36864 



550: 

202F 

A2 

10 



LDX 

«$10 




40 


560: 

£031 

8A 


CLl 

TXA 

560: 

£03£ 

90 

F0 

0F 

STA 

570: 

£035 

A9 

06 


LOA 

570: 

£037 

90 

F0 

93 

STA 

570: 

£03A 

E8 



INX 

570: 

£03B 

00 

F4 


BNE 

580: 

£030 

60 



RTS 


610: 

£03E 

A9 

00 

CLEAR 

LOA 

6£0: 

£040 

A0 

1 1 


LOY 

630: 

£04£ 

85 

FD 


STA 

640: 

£044 

84 

FE 


STY 

645: 

£046 

A0 

00 


LOY 

650: 

£048 

A£ 

0F 


LDX 

660: 

£04A 

91 

FD 

CLR 

STA 

670: 

£04C 

C8 



INY 

680: 

£040 

00 

FB 


BNE 

690: 

£04F 

E6 

FE 


INC 

700: 

£051 

CA 



DEX 

710: 

£05£ 

00 

F6 


BNE 

7£0: 

£054 

60 



RTS 


740: 

£055 

£0 

FD 

CE 

COLOR 

JSR 

750: 

£058 

£0 

9E 

07 


JSR 

760: 

S05B 

A0 

00 


COL 

LDY 

770: 

£050 

A9 

94 



LOA 

780: 

£05F 

84 

FD 



STY 

790: 

£061 

85 

FE 



STA 

800: 

£063 

8A 




TXA 

810: 

£064 

A£ 

0£ 



LDX 

8£0: 

£066 

91 

FD 


COLI 

STA 

830: 

£068 

C8 




INY 

840: 

£069 

00 

FB 



BNE 

850: 

£06B 

E6 

FE 



INC 

860: 

£060 

CA 




DEX 

870: 

£06E 

00 

F6 



BNE 

880: 

£070 

60 




RTS 


900: 

£071 

A0 

00 

REVERS 

LDY 

910: 

£073 

A9 

1 1 


LOA 

9£0: 

£075 

84 

FD 


STY 

930: 

£077 

85 

FE 


STA 

940: 

£079 

A£ 

0F 


LDX 


GRAL0-$110,X 

C0LL0-16,X 

CLl 


#0 ; GRAFIK SPEICHER LOESCHEN 

*♦> GRALO 

TMP 

TMP+1 

#0 

♦♦> GRAHI-GRALO ; ANZAHL PAGES 
< TMP),Y 

CLR 

TMP+1 

; NAECHSTE PAGE 

CLR 


CHKCOM ; FARBE SETZEN 
GETBYT ; FARBCODE HOLEN 
^0 

tt> COLLO 

TMP 

TMP+1 

; FARBCODE 

«> COLHI-COLLO ; ANZAHL PAGES 
< TMP),Y 

COLI 

TMP+1 

; NAECHSTE PAGE 

COLI 


♦♦0 ; GRAFIK INVERTIEREN 

♦♦>GRALO 

TMP 

TMP+1 

#> GRAHI-GRALO ; ANZAHL PAGES 
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950: 

2078 

81 

FD 


REVl 

LD8 

( TMP),Y 



960: 

207D 

49 

FF 



EOR 

#$FF 

; 

8LLE 81TS UMDREHEN 

970: 

207F 

91 

FD 



ST8 

< TMP),Y 



980: 

2081 

C8 




INY 




990: 

2082 

D0 

F7 



BNE 

REVl 



1000: 

2084 

E6 

FE 



INC 

TMP + 1 



1010: 

2086 

C8 




DEX 


; 

N8ECHSTE P8GE 

1020: 

2087 

D0 

F2 



8NE 

REVl 



1030: 

2089 

60 



ILL 

RTS 


; 

8USSPRUNG 8EI UNGUELTIGEN C00RDIN8T 

EN 










1050: 

208A 

89 

80 


RESET 

LD8 

«$80 

. 

GR8FIKPUNKT LOESCHEN 

1060: 

208C 

2C 




.8YT 

$2C 



1070: 

208D 

89 

00 


SET 

LD8 

«0 

; 

GR8FIKPUNKT LOESCHEN 

1080: 

208F 

85 

97 



ST8 

FL8G 



1090: 

2091 

20 

FD 

CE 


JSR 

CHKCOM 

; 

K0MM8 

1 100: 

2094 

20 

9E 

D7 


JSR 

GET8YT 

; 

X-C00RDIN8TE N8CH X-REG 

1110: 

2097 

E0 

88 



CPX 

«168 



1 120: 

2099 

80 

EE 



8CS 

ILL 

; 

X-C00RDIN8TE > 167 

1130: 

2098 

86 

14 



STX 

XCGORD 



;i40: 

209D 

20 

FD 

CE 


JSR 

CHKCOM 



1 150: 

2080 

20 

9E 

D7 


JSR 

GET6YT 



1 160: 

2083 

E0 

80 



CPX 

«176 



1170: 

2085 

80 

E2 



8CS 

ILL 



1200: 

2087 

88 




TX8 


; 

Y-C00RDIN8TE IN 8KKU 

1210: 

2088 

48 




LSR 




1210: 

2089 

48 




LSR 




1210: 

2088 

48 




LSR 




1210: 

2088 

48 




LSR 




1210: 

208C 

08 




8SL 


; 

DURCH 16 M8L 2 

1220: 

208D 

88 




T8Y 









; OFFY 

= 336 

* INT(Y/16) + (Y 8ND 15) 

1240: 

208E 

89 

0E 

21 


LD8 

MULT,Y 



1250: 

2081 

8D 

68 

21 


ST8 

OFFY 



1260: 

2084 

89 

0F 

21 


LD8 

MULT+1,Y 


; M8L 336 

1270: 

2087 

8D 

6C 

21 


ST8 

OFFY+1 



1280: 

2088 

88 




TX8 


; 

Y-C00RDIN8TE 

1290: 

2088 

29 

0F 



8ND 

«15 



1300: 

208D 

18 




CLC 




1310: 

20BE 

SD 

6B 

21 


8DC 

OFFY 



1320: 

20C1 

8D 

68 

21 


ST8 

OFFY 




42 



LDA «0 


1320: 

1320: 

1360: 

1360: 

1360: 

1360: 

1360: 

1360: 

1370: 

1380: 

1390: 

1400: 

1410: 

1420: 

1430: 

1440: 

1450: 

1460: 

1470: 

1480: 

1490: 

1500: 

1520: 

1530: 

1540: 

1550: 

1560: 

1570: 

1580: 

1590: 

1600: 

1610: 

1620: 

1630: 

1640: 

1650: 


1675: 

1680: 

1690: 

1700: 

1710: 


20C4 

B9 

00 


20C6 

80 

6B 

2 1 

20C9 

B5 

14 


20CB 

29 

F8 


20CD 

0B 



20CE 

80 

69 

21 

200 1 

90 

04 


2003 

EE 

6B 

21 

2006 

18 



2007 

B9 

00 


2009 

60 

6B 

21 

20DC 

35 

FO 


20DE 

B9 

1 1 


20E0 

60 

6C 

21 

20E3 

85 

FE 


20E5 

18 



20E6 

B5 

FD 


20E8 

60 

69 

21 

20EB 

85 

FD 


20ED 

B5 

FE 


20EF 

60 

6B 

21 

20F2 

85 

FE 


20F4 

B5 

14 


20F6 

29 

07 


20F8 

49 

07 


20FB 

BB 



20FB 

BO 

24 

21 

20FE 

B0 

00 


2100 

24 

97 


2102 

10 

05 


2104 

49 

FF 


2106 

31 

FD 


2108 

2C 



2109 

1 1 

FD 


2 10B 

91 

FD 


2100 

60 




; OFFX 


SET0 


; m = 


SETI 


STB OFFX+1 


: 16 * 

c INT<X/8.') 

LDB 

XCOORD 

BND 

ny.l 1 1 1 1000 

BSL 


STB 

OFFX 

BCC 

SET0 

INC 

OFFX+1 

CLC 


LDB 

#<GRBLO 

BDC 

OFFY 

STB 

BV 

LDB 

«>GRBLO 

BDC 

OFFY+1 

STB 

BV+1 

CLC 


LDB 

BV 

BDC 

OFFX 

STB 

BV 

LDB 

BV+1 

BDC 

OFFX+1 

STB 

BV+1 

lf< < 7- 

-X)BND7) 

LDB 

XCOORD 

BND 

«7 

EOR 

«7 

TBX 


LDB 

6RBIT,X 

LDY 

«*0 

BIT 

FLBG 

BPL 

SETI 

EOR 

**$FF 

BND 

(BV),Y ; 

.BYT 

S2C 

ORB 

<BV),Y ; 

STB 

C BV),Y 

RTS 



BV = GRBLO + ÜFFY +OFFX 


2 HOCH MB BUS TBBELLE 


PUNKT LOESCHEN 

PUNKT SETZEN 



; MULTIPLIKBTIONSTBBELLE N*336, N=0,10 

210E 

MULT 

= 

* 

210E 

COUNT 

4 - 

0 

210E 00 00 


.UIOR 

C0UNT*336 

21 10 

COUNT 

4 - 

COUNT+1 

21 10 


. IF 

COUNT-11 
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1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1710 

1690 

1700 

1710 

1720 


21 10 

2110 50 01 
2112 COUNT 

21 12 
21 12 

2112 A0 02 

2114 COUNT 

2114 

21 14 

2114 F0 03 
2116 COUNT 

2116 
21 16 

2116 40 05 
2118 COUNT 

2118 
21 18 

2118 90 06 
21 lA COUNT 

21 lA 
21 lA 

21lA E0 07 
21 IC COUNT 

21 IC 
21 IC 

21 IC 30 09 
21 lE COUNT 

21 lE 
21 lE 

21lE 80 0A 
2120 COUNT 

2120 
2120 

2120 00 0B 
2122 COUNT 

2122 
2122 

2122 20 00 

2124 COUNT 

2124 

2124 01 02 04 GRBIT 


.GOTO 1690 
.UJOR C0UNT*336 
^ COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.UOR C0UNT*336 
*- COUNT+1 
. IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
+- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
+- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
♦- COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
+• COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
COUNT+1 
.IF COUNT-11 
.GOTO 1690 
.WOR C0UNT*336 
COUNT+1 
.IF COUNT-11 

.BYT 1 ,2,4,8,$10,^0,^40,$80 


; ZWEIERPOTENZEN 
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1740: 

1750: 

1760: 

1770: 

1780: 

1790: 

1800: 

1810: 

1820: 

1830: 

1840: 

1860: 

1865: 

1870: 

1880: 

1890: 

1900: 

1920: 

1920: 

1930: 

1930: 

1940: 

1940: 

1950: 

1950: 

I960: 

2000 : 

2010 : 


212C 

20 

FD 

CE 

GS8VE 

JSR 

CHKCOM ; 

GR8FIK 88SPEICHERN 


212F 

20 

Dl 

El 


JSR 

GETP8R ; 

FILEN8MEN UND GER8ETE8DRESSE 

HOLEN 

2132 

A2 

00 



LDX 

n< GR8HI 



2134 

(=10 

20 



LDY 

GR8HI 



2136 

(=19 

00 



LD8 

♦»< GR8L0 



2138 

85 

FD 



ST8 

TMP 



213A 

ft9 

1 1 



LD8 

*♦> GR8L0 



213C 

85 

FE 



ST8 

TMP+1 



213E 

1=^9 

FD 



LD8 

«TMP 



2140 

85 

89 



ST8 

S8 

8BS0LUT SPEICHERN 


2142 

4C 

D8 

FF 


JMP 

S8VE 



2145 

20 

FD 

CE 

GL08D 

JSR 

CHKCOM ; 

6R8FIK L8DEN 


2148 

20 

Dl 

El 


JSR 

GETP8R ; 

FILEN8MEN UND GER8ETE8DRESSE 

HOLEN 

2148 

A9 

01 



LD8 

«1 ; 

8BS0LUT L8DEN 


214D 

85 

89 



ST8 

S8 



214F 

1=^9 

00 



LD8 

«0 ; 

L08D FL86 


2151 

4C 

D5 

FF 


JMP 

L08D 



2154 

(=(9 

0C 


GOFF 

LD8 

«12 



2156 

8D 

00 

90 


ST8 

36864 



2159 

ftS 

16 



LD8 

«22 



2158 

8D 

02 

90 


ST8 

36866 



215E 

89 

8E 



LD8 

«174 



2160 

80 

03 

90 


ST8 

36867 



2163 

89 

C0 



LD8 

«192 



2165 

8D 

05 

90 


ST8 

36869 



2168 

60 




RTS 




2168 




OFFX 

* = 

*+2 



216D 




OFFY 

» = 

*+2 
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100 F0RI=819aTÜ8552:READA:P0KEI,A:B=B+A 

110 NEXTI 

120 IFB< >43663THENPRINT"FEHLER! M“ 


1000 

DATA 

76 

. 27 , 

32 , 76 , 62 , 32 , 76 

, 85 

1010 

DATA 

32 

, 76 , 

113 , 32 , 

76 , 141 , 32 , 76 

1020 

DATA 

138 

, 32 

r 76 , 69 , 

33 , 76 , 44 

, 33 

1030 

DATA 

76 

, 84 , 

33 , 169 , 

151 , 141 , 

3 , 144 

1040 

DATA 

IBS 

, 21 

/ 141 , 2 , 

144 , 169 , 

204 , 141 

1050 

DATA 

5 , 

144 , 

169 , 14 , 

141 , 0 , 144 , 162 

1060 

DATA 

16 

, 138 

, 157 , 240 

, 15 , 169,6 

, 157 

1070 

DATA 

240 

, 147 

, 232,208,244,96,169,0 


1080 

DATA 

160 

, 17 

, 133 , 253 

, 132 , 254 

, 160 ,0 

1090 

DATA 

162 

, 15 

, 145 , 253 

, 200 , 208 

, 251 , 230 

1 100 

DATA 

254 

, 202 

,208,246,96, 

32 ,253,206 


1 1 10 

DATA 

32 

, 158 

, 215 , 160 

, 0 , 169 , 

148 , 132 

1 120 

DATA 

253 

, 133 

,254,138,162 

,2,145,253 


1 130 

DATA 

200 

, 208 

,251,230,254 

,202,208,246 


1 140 

DATA 

96 , 

, 160 

, 0 , 169 , 

17 , 132 , 253 , 133 


1150 DATA 254 , 162,15,177,253,73,255,145 


1 160 

DATA 

253 

, 200 

1,208, 

247,230,254,202,208 

1 170 

DATA 

242 

, 96 

, 169 

, 128 , 44 , 169,0,133 

1 180 

DATA 

151 

, 32 

, 253 

, 206 , 32 , 158,215,224 

1 190 

DATA 

168 

, 176 

,238, 

134,20,32,253,206 

1200 

DATA 

32 , 

158 

, 215 

, 224 , 176 , 176 , 226 , 

1210 

DATA 

74 , 

74 , 

74 , 

74 , 10 , 168 , 185 , 14 

1220 

DATA 

33 , 

141 

, 107 

, 33 , 185 , 15 , 33 , 141 

1230 

DATA 

108 

, 33 

, 138 

, 41 , 15 , 24 , 109 , 107 

1240 

DATA 

33 , 

141 

, 107 

, 33 , 169 , 0 , 141 , 106 

1250 

DATA 

33 , 

165 

, 20 

, 41 , 248 , 10 , 141 , 105 

1260 

DATA 

33 , 

144 

, 4 , 

238 , 106 ,33 ,24 , 169 

1270 

DATA 

0 , 

109 , 

107 

r 33 , 133 , 253 , 169 , 17 

1280 

DATA 

109 

, 108 

,33,133,254,24,165,253 

1290 

DATA 

109 

, 105 

,33,133,253,165,254,109 

1300 

DATA 

106 

, 33 

, 133 

, 254 , 165 , 20,4 1 ,7 


138 
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1310 

DATA 

73 

r 7 , 170 , 

1320 

DATA 

36 

, 151 , 16 , 

1330 

DATA 

44 

, 17 , 253 , 

1340 

DATA 

80 

, 1 , 160 , ; 

1350 

DATA 

144 

, 6 , 224 , 

1360 

DATA 

208 

, 11 r 32 , 

1370 

DATA 

16 

, 32 , 64 , 

1380 

DATA 

209 

, 225,162,0 

1390 

DATA 

133 

, 253,169,1 

1400 

DATA 

133 

, 185,76,211 

1410 

DATA 

32 

, 209 , 225 

1420 

DATA 

0 r 

76 , 213 , i 

1430 

DATA 

144 

, 169,22,14 

1440 

DATA 

14 1 

,3 , 144 , 

1450 

DATA 

96 

, 255 , 14 , 


1S9 ,36 ,33 , 160 ,0 

5 , 73 , 255 , 49 , 253 
145 , 253 , 96 , 0 , 0 
2 , 240 , 3 , 64,5 
7 , 48 , 9 , 128 , 10 
13 , 1 , 2 , 4 , 8 
128 , 32 , 253 , 206 , 32 
,160,32,169,0 
7,133,254,169,253 
6,255,32,253,206 
, 169 , 1 , 133 , 185 , 169 

255 , 169 , 12 , 141 , 0 

1,2,144,169,174 
169 , 192 , 141,5,144 

255 , 0 , 255 , 5 , 255 
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Anwendung der Grafikhilfe : 


Am Anfang des Grafikprogramms steht eine Sprungtabelle für die 
verschiedenen Funktionen. Am einfachsten können Sie alle 
Funktionen anwenden, wenn Sie sich zu Beginn Ihres Programms 
ebenfalls eine solche Tabelle anlegen- Dies könnte so aussehen: 


10 IN=2*4096:REM SYS IN - GRAFIK EINSCHALTEN 


20 

CL=IN+3 

:REM 

SYS 

CL - GRAFIK LÖSCHEN 


30 

Cü=IN+6 

:REM 

SYS 

CO,PF - 

PUNKTFARBE SETZEN 

40 

RV=IN+9 

:REM 

SYS 

RV - GRAFIK INVERTIEREN 

50 

SE=IN+12 

:REM 

SYS 

SE,X,Y - 

GRAFIKPUNKT 

SETZEN 

60 

RS=IN+15 

:REM 

SYS 

RS,X,Y - 

GRAFIKPUNKT 

LÖSCHEN 

70 

GL=IN+18 

:REM 

SYS 

GL,"NAME* 

',1 ODER 8 - 

GRAFIK LADEN 

80 

GS=IN+21 

:REM 

SYS 

GS,"NAME' 

',1 ODER 8 - 

GRAFIK ABSPEICHERN 

90 

□F=IN+24 

:REM 

SYS 

OF - GRAFIKMÜDUS AUSSCHALTEN 


Dank der Grafikhilfe haben Sie nun eine echte Punktgrafik zur 
Verfügung- Sie können in der waagerechten (X-) Richtung 168 und 
in der senkrechten (Y—) Richtung 176 einzelne Punkte ansteuern. 
Ein Punkt wird gesetzt, in dem Sie zum Beispiel SYS SE,84,88 
eingeben. Die würde einen Punkt in der Mitte des Bildschirms 
setzen- Mit SYS IN schalten Sie den Grafikmodus ein, mit SYS CL 
löschen Sie die Grafikseite. Mit SYS CÜ,PF bestimmen Sie die 
Farbe aller Punkte. PF darf Werte zwischen 0 und 7 haben- SYS RV 
invertiert die gesamte Grafik. Mit SYS RS,84,88 können Sie den 
Punkt in der Mitte des Bildschirms wieder löschen- Mit SYS ÜF 
schalten Sie wieder den Textmodus ein. Sie können die gesamte 
Grafikseite auf Kassette oder Diskette abspeichern und wieder 
laden. Dies geschieht mit den beiden Befehlen SYS GS,"NAME",1 
oder 8 zum Abspeichern und SYS GL,"NAME",1 oder 8 zum Laden. 
Damit haben Sie die wichtigsten Funktionen, Setzen und Löschen 
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eines Punktes, Wählen der Farbe, Gratik ein- und ausschalten und 
Bilder laden bzw. abspeichern realisiert. Sicher gibt es noch 
viele Möglichkeiten, diese Grafikhilfe zu erweitern. Dies Prog¬ 
ramm ist als Anregung für Sie gedacht. Erweiterungen steht nur 
Ihre Fantasie entgegen. 

Unser Sinuskurveprogramm von Seite sieht nun so aus, wie Sie es 
unten sehen. Sie werden feststellen, daß es um einiges schneller 
und kürzer geworden ist. Tippen Sie das Programm ein, nachdem Sie 
die Grafikhilfe geladen haben. 

10 IN=2*4096 
20 CL=IN+3 
30 CÜ=IN+6 
40 SE=IN+12 
50 ÜF=IN+24 

60 SYS IN:SYS CL:SYS CO,6 

100 FORI=-PIT02*PISTEP2*P1/168:REM BENUTZEN SIE DAS PI-ZEICHEN AUF 
IHRER TASTATUR 
110 X=U:Y=SIN(I)*88+88 
120 SYS SE,U,Y 
130 U=U+1 
140 NEXTI 

150 GETA^: IFA^ = '* " THEN150 
160 SYS 0F:END 
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3-6 Funktionenplatter mit Luxus 


Auf der folgenden Seite finden Sie nun einen weiteren 
Funktionenplotter- Da wir etwas mehr Platz zur Verfügung haben 
sls in der Grundversion, können wir diesen auch etwas 
komfortabler gestalten- So müssen Sie die Funktionen nicht mehr 
in die Zeilen hineinschreiben, sondern können Sie per INPUT 
eingeben- Das Programm modifiziert sich dann selber, indem es die 
Funktion in Zeile 20 schreibt- Da das Programm sich selber 
ändert, müssen Sie zwei Dinge beim Abtippen beachten: Ändern Sie 
auf keine Fälle Zeile 10 und 20 oder fügen Sie irgendetwas vor 
Zeile 20 ein! Wenn Sie das tun, stimmen die Adressen für die 
POKE-Anweisungen nicht mehr und schlimmstenfalls könnte sich das 
Programm selbst zerstören. Speichern Sie zweitens das Programm 
unbedingt zuerst ab, bevor Sie es laufen lassen. Ein Tippfehler 
kann in diesem Programm sehr fatale Folgen haben. 

Zur Benutzung des Programms: 

Der Funktionenplotter arbeitet interaktiv, d.h. er fragt Sie klar 
und deutlich nach allen Eingaben, so daß Sie praktisch nichts 
falsch machen können. Als erstes geben Sie die Funktion ein, die 
gezeichnet werden soll, z.B. SIN(X) . Als Variable müssen Sie 
immer "X" verwenden. Anschließend wird diese Funktion in Zeile 
20 geschrieben. Dies geschieht in den Zeilen 70 - 140. Sie geben 
nun Anfangs- und Endpunkt der Funktion ein. Weiter können Sie 
wählen, ob Sie die Maximalwerte für Y selber bestimmen wallen. 
Nach allen Eingaben dauert es einen Moment, bis der Graph er— 
scheint, da das Programm die gesamte Funktion erst einmal durch— 
rechnet. Wenn der Graph fertig ist, können Sie durch Drücken 
einer Taste die Arbeit fortsetzen, entweder mit der gleichen 
Funktion unter neuen Bedingungen oder mit einer neuen Funktion. 
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10 G0T021 
20 :::::: 


21 IN=2*4096 

22 CL=Ih4 + 3 

23 C0=IN+6 

24 RV=IN+9 

25 SE=IN+12 

26 RE=IN+15 

27 0F=IN+24 

29 SYS CO,3*16 + 3 

30 PRINTCHR^' 147) :PRINT“ * FUNKTIONENPLOTTER * ” : PR INT: PR INT 
40 OIMYC 167):YM=1E37 

50 PRINT''GEBEN SIE NUN DIE FUNKTION EIN FCX)= ":INPUTFS 

60 F$="Y=''+F^:M=S717 

70 FORI = lTOLENC F$):ft$=MID$( F$,1,1) 

80 RESTORE:F0RJ = 1T06:RERDB$,B:IFA$=B$THENF=B:GOTO 130 


90 NEXTJ 

100 i=i$=MID$C F$, I ,3) : 1 = 1+2 

110 FORJ=1TO10:READB$,B: IFAS=B$THENF=B:GOTO 130 
115 NEXTJ 

120 I = I-2:F=ASC<MID$( F$,I,1)) 

130 P0KEM,F:M=M+1:NEXTI 

140 P0KEM,58:P0KEM+1,142:POKEM+2,58:POKEM+3,143 
200 PRINT:PRINT"BITTE GEBEN SIE NUN XL EIN : ":INPUTXL 

210 PRINT:PRINT"BITTE GEBEN SIE NUN XR EIN : “rlNPUTXR 

220 IFXL>XRTHEN200 

230 PR INTSPRINT"WOLLEN SIE DIE Y-WERTE BESTIMMEN ( J/N) 7" 

240 GETY$:IFY«=""THEN240 
250 IFY$="N"THEN290 
260 IFY$<>"J"THEN240 

270 PR INT SPRINT "GEBEN SIE BITTE YU EIN s "MNPUTYU 

280 PRINT:PRINT"GEBEN SIE BITTE YO EIN s "riNPUTYO 

290 IFYU>YOTHEN270 

340 PR INT"BITTE WARTEN SIE EINEN MOMENT" 

350 PRINTS PR INT"WENN DER GRAPH FERTIG IST, KOENNEN SIE DURCH DRUECKEN " 
360 PRINT-EINER TASTE FORTFAHREN" 

400 IFY$="J"THEN475 

410 DX=( XR-XL)/167sY1=YMSY2 = -YM 
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430 X=XL:F0RI=070167 

431 IFX=0THEN440 

432 6OSUB20:Y< I>=Y 

440 X=X+DX:IFY=YMTHEN470 
450 IFY<Y1THENY1=Y 
460 IFY>Y2THENY2=Y 
470 NEXTI 

475 SYS IN :SYS CL 

480 IFY$="N"THENYU=Y1:Y0=Y2 

500 DX=( XR-XL)/167:DY=< YO-YU)/l76 : M=': XR-XL)/DX 
510 B=176.5+YU/DY:A=.5+M 

520 IFB>=0ftNDB< =177THENFORI=0TOfl:SYSSE,I,B:NEXT:6OTO540 
530 B=180 

540 A=.5-XL/DX:B=176.5-( YO-YU)/DY 

550 IFA>=0BNDft<=169THENF0RI=BT0176:SYS SE,A,I:NEXT 
600 X=XL:Z=176.5 
610 FORI=0TOM 
630 Y=Y< I ) 

640 B=Z-< Y-YU)/DY 

650 IFB>=0ANDB<=177THENSYSSE,I,B 
660 X=X+DX:NEXTI 
700 6ETT$: IFT$=" •■THEN700 
705 SYS OF 

720 PRINTCHR^< 147):PRINTiPRINT"NOCH EINMAL UNTER ANDEREN BEDINGUNGEN <J/N) 
730 GETN«:IFN^=""THEN730 
740 IFN$="N"THEN760 
750 6OTO200 

760 PRINT:PRINT"N0CH EINE FUNKTION <J/N)" 

770 GET N$:IFN$=“"THEN770 
780 IFN*="N"THENEND 
820 GOTO50 

2000 DATA +,170,-,171172,/,173,t,174,=,178 

2010 DATA SGN,180,INT,181,ABS,182,SQR,186,RND,187,LOG,188,EXP,189 
2020 DATA COS,190,SIN,191,TAN,192,ATN,193 

READY. 
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3.7 Grafikeditar 


Das folgende Programm ermöglicht es Ihnen mit Hilfe der 
Cursortasten oder des Joysticks auf dem Bildschirm zu zeichnen. 
Weiterhin können Sie mit Hilfe der Funktionstasten die Farben 
ändern, Bilder abspeichern und laden. Den Grafikeditor können Sie 
benutzen, um Bilder zu malen oder um Grafiken für Spiele zu 
gestalten. 

Die Tasten sind wie folgt belegt: 

Cursortasten und Joystick : Bewegung des Cursors in alle 4 

Richtungen 

Taste Fl : Farbe der Punkte ändern 

Taste F3 : Farbe des Rahmens ändern 

Taste FS : Farbe des Hintergrunds ändern 

Taste F7 : Schalter für Modus Zeichnen/Löschen 

Taste F2 : Laden eines Bildes 

Taste F4 : Speichern eines Bildes 

Taste F8 : Bild löschen 


Zu Beginn des Programms müssen Sie angeben, wie Ihr Bild heißen 
soll und ob Sie mit Datasette oder Diskettenlaufwerk arbeiten. 
Dann können Sie zeichnen oder ein Bild unter dem angegebenen 
Namen laden. Mit der Taste F7 wählen Sie, ob Sie den Cursor nur 
bewegen oder ob Sie auch zeichnen wollen. Sie können jederzeit 
die Farben auf dem Bildschirm ändern, indem Sie einfach die 
entsprechenden Funktionstasten drücken. 

Das Programm ist ganz einfach aufgebaut und erlaubt Ihnen daher 
ohne Schwierigkeiten eigene•Erweiterungen einzubauen. 
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10 GOSUB1000:X=0:Y=0 

16 IN=2*4036 

17 CL=IN+3 
13 C0=IN+6 
19 RV=IN+9 
£0 SE=IN+12 
£1 RE=IN+15 

25 GL=IN+18 

26 GS=IN+21 

27 0F=IN+24 

26 SYS in:SYS CL:SYS CO,3 
30 GETA$:SYSSE,X,Y 

35 IFS=0THENSYS RE,X,Y l 

40 IFA$=CHRS( 17)THENY=Y+1:SYSSE,X,Y:GOTO 100 

50 IFA$=CHR$': 145)THENY = Y-1 :SYS SE ,X ,Y: GOTO 100 

60 IFft$=CHR$( 29)THENX=X+1:SYS SE,X,Y:GOTO 100 

70 IFf=l$=CHR:$': 157)THENX = X-1 : SYS SE ,X , Y: GOTO 100 

80 IFA$=CHR$(133)THENF=<F+1)AND7 :SYS CO,F 

90 IFA:®=CHR$': 136)THENS= 1+< S=l) 

100 IFr=l$=CHR$< 134 )THENH 1 =< H 1 + 1 )AND7 : H=H 1+H3: P0KE36S79 ,H 

120 IFA$=CHRS«: 135)THENH2=< H2+1 ) AND 15 : H3 =H2 * 16+8 : H = H 1 +H3: P0KE36879 ,H 

130 IFA$=CHR$< 137)THENSYS GL,N$,D 

140 IFA$=CHR$< 138)THEN SYS GS,N$,D 

150 IFA$=CHRS< 140)THEN SYS CL 

160 P0KE37154,127:P2=PEEK( 37152)AND128 

170 P1=PEEK<37151):P0KE37154,255 

180 IFP2=0THENX=X+1:SYSSE,X,Y:G0T0999 

190 IF( P1AND16)=0THENX=X-1:SYSSE,X,Y:60T0999 

200 IF< PIANOS)=0THENY=Y+1:SYSSE,X,Y:G0T0999 

£10 IF-: PI AND4)=0THEN>'=Y-1 : SYSSE,X,Y:G0T0999 

999 6OTO30 

1000 PRINT"6EBEN SIE DEN NAMEN DES BILDES EIN”:INPUTN^ 

1020 PRINT‘'ARBEITEN SIE MIT DISKETTE ODER KASSETTE C D/K) " : INPUTDS 
1040 IFD$="D"THEND=8:RETURN 
1050 IFD$="K"THEND=1:RETURN 
1060 GOTO 1020 
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3.8 Gra+iken zum Anschauen 

Zum guten Schluß möchten wir Ihnen noch ein paar kleine Programme 
zeigen, die Gra-fiken aut dem Bildschirm erzeugen, die Sie sicher 
kennen, von denen Sie aber bis jetzt nicht wußten, wie diese 
gemacht werden. Wir verzichten hier bewußt aut mathematische 
Erklärungen, wie und warum die Gratiken entstehen. Diese kleinen 
Programme sollen Sie lediglich ertreuen und anregen, sich doch 
mit dem taszinierenden Gebiet der Computergraphik zu 
beschättigen. 

Alle Programme tragen zu Beginn nach einem Namen tür das Bild und 
ob Sie mit Diskette oder Kassette arbeiten. Nach Fertigstellung 
können Sie das Bild dann abspeichern- Sie brauchen datür nur "S" 
einzutippen- Durch Betätigen der Taste "E" können Sie das 
Programm beenden ohne das Bild abzuspeichern. 

Voraussetzung tür all diese Programme ist, daß Sie die 

Gratikhilte geladen haben- 

Das erste Programm erzeugt ein Linienmuster aut dem Bildschirm: 


10 IN=2*4096 

11 CL=IN+3 

12 CG=IN+6 

13 SE=IN+12 

14 GS=IN+21 

15 üF=IN+24 
25 GOSUB 600 

28 P0KE36879,8 

29 SYS IN:SYS CL: SYS CG,! 

30 F0RX1=0T0168STEP20 
40 FaRX2=0TG168STEP20 
50 DX=(X2-X1)/178:X=X1 
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60 FÜRY=0TÜ176 

70 X=X+DX 

80 SYS SE,X,Y 

90 NEXTY,X2,X1 

500 GET:IFA^=""THEN500 

520 ifa$="e:"thenend 

530 IFA^<>*'S"THEN500 

540 SYS aF:PGKE36879,27 

550 IFD^="K"THENSYS GS,N$,1 

560 IFD^="D'*THENSYS GS,N$,8 

570 END 

600 INPUT"NAME*';N^ 

610 INPUT"KASETTE ODER DISKETTE (K/D) ; D$ 

620 RETURN 


Wenn Sie die Schrittweite in den Zeilen 30 und 40 variieren, 
erhalten Sie weitere schöne Muster- Nehmen Sie in den beiden 
Zeilen auch einmal verschiedene Werte. 

Der Ef-fekt des nächsten Programms hängt hauptsächlich vom Wert 
der Variablen K ab. Wählen Sie für K einmal sehr kleine Werte von 
1 bis 10, zum andern sehr große wie z-B- 60 oder 270- 

21 IN=2*4096 

22 CL=IN+3 

23 Cü=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 □F=IN+24 

27 PI=3.14159265 

28 GÜSUB600 

29 PÜKE36879,8 

30 INPUT"KÜNSTANTE";K:V=10 
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35 SYS IN:SYS CL: SYS C0,1 
40 FÜRI=0T02*PISTEP2*PI/672 
50 R=V*SIN(K*I) 

60 X=R*7*C0S(K)+83 
70 Y=R*7*SIN(I)+87 
80 SYS SE,X,Y 
90 NEXTI 

500 GET: IFA$= " ” THEN100 
520 IFA^="E"THENEND 
530 IFA4J<>*'S"THEN500 
540 SYS □F:PGKE36879,27 
550 IFD$="K"THENSYS GS,N$,1 
560 IFD^=*'D"THENSYS GS,N^,8 
570 END 

600 INPUT"NAME'*;N$ 

610 INPUT-KASETTE ODER DISKETTE (K/D) "; D^ 

620 RETURN 

V ist hier ein Vergrößerungsfaktor, die Schrittweite in Zeile 40 
bestimmt, wie dicht die einzelnen Punkte aneinander1iegen- Beide 
Werte können Sie nach eigenem Geschmack verändern. 

Das nächste Programm erzeugt eine Spirale. Der Effekt hängt hier 
hauptsächlich von der Variablen E ab. Sehr kleine Werte für E wie 
z.B. 0.05 ergeben eine sehr schöne Spirale- Ein völlig anderer 
Effekt ergibt sich, wenn Sie für E Werte zwischen 1 und 5 wählen. 
Doch lassen Sie sich überraschen: 
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21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 ÜF=IN+24 

28 GÜSUB 600 

29 PÜKE36879,B 

30 INPUT"KONSTANTE ";E 

35 SYS IN:SYS CL: SYS C0,1 
40 F0RI=0TG200STEPE 
50 X=I*C0S(I)+84 
60 Y=I*SIN(I)+88 
70 IFX<00RX>167THEN95 
80 IFY<00RY>175THEN95 
90 SYS SE,X,Y 
95 NEXTI 

500 GETA^:IFA$=""THEN100 
520 IFA$="E"THENEND 
530 IFA^<>"S"THEN500 
540 SYS 0F:PGKE36879,27 
550 IFD$="K"THENSYS GS,N^,1 
560 IFD:f="D"THENSYS GS,N^,8 
570 END 

600 INPUT"NAME";N$ 

610 INPUT"KASETTE ODER DISKETTE (K/D) ";D$ 
620 RETURN 


Das nachfolgende Programm erzeugt in sich 
Rechtecke¬ 


verdrehte 
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20 REM *** RECHTECKE *** 

21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 SE=IN+12 

25 GS=IN+21 

26 GF=rN+24 
23 GOSUB600 

23 P0KE36879,8 

30 SYS in:SYS CL:SYS CG,1 

31 X< 1) =0 : Y< 1 ) =0 : X< 2 ) = 167 : Y< 2 ) =0 

35 X< 3 ) = 1G7 : Y< 3 ) = 175 : X< 4 =0 : Y< 4 > = 175 
40 X<5)=X< 1):YC5)=Y( 1):H=.5:K=15 
50 FGRI=1TO40:FGRJ=1TO4 
100 Xl=XC J) : Y1=Y<: J) 

130 X2=X( J + 1 ) : Y2=Y< J+1 ) 

135 IFY1=Y2THENF0RX=X1T0X2STEP1 +2*«: XI >X2) :SYSSE,X,Y1 : NEXTX : GOTO 190 
140 DX=<X2-X1)/ABS<Y1-Y2):X=X1 
150 F0RY = Y1T0Y2STEP1+2*< Y1>Y2) 

160 SYS SE,X,Y:X=X+DX 
180 NEXTY 
190 NEXTJ 
200 F0RJ=1T04 

210 XXC J)=X< J) + INT< < X< J + 1 )-X< J) )/K+H) 

220 YY( J)=Y< J) + INT< < Y< J + 1 )-Y< J) )/K+H) : NEXTJ 
250 FORJ = 1T04 :X< J ) =XX': J ) : Y< J )=YYC J ) : NEXTJ 
260 X( 5 ) =X': 1 ) : Y< 5 ) =Y( 1 ) 

270 NEXTI 

500 GET IFA$=""THEN500 
520 IFft$="E"THENEND 
530 IFB$< >"S''THEN500 
540 SYS OF:P0KE36879,27 
550 IFD$="K"THENSYS GS,N$,1 
560 IFD.5= ■•□"THENSYS GS,rNl$,8 
570 E^^D 

600 INPUT"NHME";N^ 

610 PRINT"KASSETTE ODER DISKETTE <K/D)”:INPUTD$ 

620 RETURN 
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Gehen wir einen Schritt weiter. Das Programm aut der nächsten 
Seite erzeugt in sich verdrehte Sechsecke. Die Schleife in Zeile 
100 bestimmt die Anzahl der Sechsecke, die auf dem Bildschirm 
gezeichnet werden- Durch Verändern der Variablen W in Zeile 40 
können Sie auch Achtecke oder Figuren mit noch mehr Ecken 
erzeugen. Sie müssen dann aber auch die Schleifen in den Zeilen 
50,110,200 und 250 verändern- Ferner müssen Sie eventuell Felder 
für X, MX, Y und MY dimensionieren und die Zeile 240 
modifizieren. 

Ein weiteres sehr schönes Programm finden Sie auf der 
übernächsten Seite. Es erzeugt eine ellipsenförmige Figur mit 20 
Eckpunkten, in der jeder Eckpunkt mit jedem Eckpunkt durch eine 
Strecke verbunden ist- 

Mit den beiden letzten Programmen wagen wir uns in den Bereich 
der dreidimensionalen Grafik- Die beiden Programme sind identisch 
aufgebaut, lediglich die Definition der Funktionen in Zeile 30 
ist verschieden. Die beiden Programme laufen relativ lange. Haben 
Sie also bitte etwas Geduld. Bedenken Sie, daß mehrere Tausend 
Punkte berechnet werden müssen. 
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20 REM SECHSECKE 

21 IN=2*4096 

22 CL=IN+3 

23 CÜ=IN+6 

24 SE=IN+12 

25 6S=IN+21 

26 0F=IN+24 

28 SYS IN:SYS CL:SYS CO,8*16+3 
30 DIMX< 6) ,Y<: 6) ,MX< 6) ,MY< 6) 

40 R=84 : U=84 : V=88 : H= . 5 : W=60*ifx''180 

50 FORJ=0TO6:W1=J*U 

60 X( J) = INT( U-R*COS< Ul )+H> 

70 Y< J) = INT( V+R*SIN< Ul )+H) 

80 NEXTJ 

100 FORN=1TO20 

110 FORJ=0TO5 

130 X1=X< J) : Y1=Y< J) :X2=X< J + 1 ) : Y2 = Y<: J + 1 ) 

135 IFYl=Y2THENF0RX=XlT0X2STEPl+2*< XI>X2>:SYSSE,X,Y1,NEXTX:GOTO 190 
140 DX=< X2-X1 )/r=»BS< Y1-Y2) :X=X1 
150 F0RY=YlT0Y2STEPl+2*<Y1>Y2) 

160 SYS SE,X,Y 
170 X=X+DX 
180 NEXTY 
190 NEXTJ 
200 FORI=0TO5 

210 MX< I) = INT< ( XC I)+X< I + l))/2+H) 

220 MY< I) = INTCCY< I )+YC I + l))/2+H) 

230 NEXTI 

240 MX< 6 ) =MX<: 0 ) : MYC 6 ) =MY< 0 ) 

250 FORI=0TO6 

260 XC I ) =MX( I ) : Y< I ) =MY< I ) 

270 NEXTI 
280 NEXTN 
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20 REM ELLIPSE 

21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 SE=IN+1E 

25 GS=IN+21 

26 0F=IN+24 

28 GOSUB600 

29 P0KE36879,8 

30 SYS in:SYS CL:SYS CO,1 

35 (=»=83:B=87:N=20:DIMX< 20) ,Y< 20) 

40 R =83 : U=84 : V =87 : H= . 5 : U=360/N* ,f/180 
50 FORJ=0TON-1 : W1=J*UI 
60 X< J) = INT( U+A*COS( Ul )+H) 

70 Y( J) = INT< V-B*SIN< Ul )+H) 

80 NEXTJ 

100 FORI=0TON-2:X1=X( I) :Y1=Y(I) 

1 10 FORJ=I + 1TON-1 
130 X2=X< J) : Y2 = Y< J) 

135 IFYl=Y2THENF0RX=X1T0X2STEP1+2*< XI>X2):SYSSE,X,Y1:NEXTX:GOTO 190 
140 DX=<X2-X1)/ABS( Y1-Y2):X=X1 
150 F0RY=Y1T0Y2STEP1+2*CY1>Y2) 

160 SYS SE,X,Y 
170 X=X+OX 
180 NEXTY 
190 NEXTJ 
270 NEXTI 

500 GET 8$:IFR$=""THEN500 
520 IFPS='*E"THENEND 
530 IF>"S"THEN500 
540 SYS 0F:P0KE36879,27 
550 IFDS=*'K"THENSYS GS,N*,1 
560 IF0$="O"THENSYS 6S,N*,8 
570 END 

600 input-name“;n$ 

610 PRINT-KASSETTE ODER DISKETTE C K/'D) “ : INPUTD$ 

620 RETURN 
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21 IN=E*4096 

£2 CL=IN+3 
23 C0=IN+6 
£4 RV=IN+9 
£5 SE=IN+1E 
26 GS=IN+21 
£7 0F=IN+24 

28 6OSUB600 

29 P0KE36879,8 

30 SYS in: SYS CL'.SYS CO, 1 

35 DEFFNA<2)=90*EXP<-Z*Z/1500) 

40 F0RA=1T02 

50 6=84:K=50:FORX = -83TO0:L = -50:H=5*INT( SQR< 10000-X*X)/5) 
60 F0RY=HT0-HSTEP-5:Z=25+FNP< SQR< X*X + Y*Y))-.6*Y 
65 X1=G+X:Y1=176-2-K:X2=G-X 

70 IFZ>LTHENL=2:SYS SE,X1,Y1:SYS SE,X2,Y1 
80 NEXTY,X 

500 GET AS: IFP$=’"'THEN500 
510 SYS 0F:P0KE36879,27 
520 IFAS="E‘'THENEND 
530 IFft$< > ■•S”THEN500 
540 SYS 0F:P0KE36879,27 
550 IFDS=”K"THENSYS GS,N^,1 
560 IFD$="D"THENSYS GS,N:5,8 
570 END 

600 INPUT"NAME'*;N$ 

610 PRINT-KASSETTE ODER DISKETTE <K/D)":INPUTD« 

620 RETURN 

READY. 
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21 IN=2*4096 

22 CL=IN+3 

23 C0=IN+6 

24 RV=IN+9 

25 SE=IN+12 

26 GS=IN+21 

27 0F=IN+24 

28 GOSUB600 

29 P0KE36879,8 

30 SYS in:SYS CL:SYS CO,1 

35 DEFFNA< 2 )=38*': SINC Z/24 ) + . 48*S IN«: 3*2/24) )+20 
40 F0RA=1T02 

50 G=84:K = 50:FGRX = -83TO0:L = -50;H=5*INT( SQR( 10000-X*X)/5) 

60 F0RY=HT0-HSTEP-5:2=25+FNA': SQR< X*X+Y*Y) ) -. 6*Y 

65 X1=G+X:Y1=176-Z-K:X2=G-X 

70 IF2>LTHENL=2:SYS SE,X1,Y1:SYS SE,X2,Y1 

80 NEXTY,X 

500 GET IFA$=""THEN500 
510 SYS 0F:P0KE36S79,27 
520 I FA$= E " THENEND 
530 IFrt:$< > "S"THEN500 
540 SYS GF:P0KE36879,E7 
550 IF0S="K"THENSYS GS,N$,1 
560 IFO$="0“THENSYS GS,NS,8 
570 ENG 

600 input"name“;ns 

610 PR INT"KASSETTE OGER DISKETTE <K/D)": INPUTDS 
620 RETURN 

READY. 
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3-9 Die Supererweiterung des VC-20 

Wie Sie sicher wissen, besteht die Supererweiterung VC-1211A aus 
zwei Teilen 

- einer 3K Speichererweiterung 

- dem Superexpander als 2K Befehlserweiterung 

Die Supererweiterung des VC—20 erweitert sowohl die graphischen, 
als auch die musikalischen Möglichkeiten des VC-20 um ein 
Vielfaches. Sie kann mit normalen Basic Befehlen programmiert 
werden. Die Programme, die auf einer Supererweiterung geschrieben 
wurden, laufen auch nur mit selbiger. Dies gilt auch, wenn Sie 
eine Supererweiterung zusrammen mit einem 

Speichererweiterungsmodul eingesteckt haben- Die Erweiterung 
stellt Ihnen über 15 neue Befehle zur Verfügung, die es Ihnen 
erlauben, sehr einfach und wirkungsvoll zu arbeiten. 

Die Supererweiterung teilt den VC—20 Bildschirm in 1024 mal 1024 
Punkte ein- Wenn Sie nun den folgenden Befehl eingeben, wird auf 
der Mitte des Bildschirmes ein Punkt erscheinen: GRAPHIC2 : POINT 
1,512,512 Es muß jedoch beachtet werden, daß es sich hier um 
Pseudo—Koordinaten handelt- Sie geben nicht die tatsächliche 
Auflösung der Erweiterung an, sondern einen internen Standard,der 
in die wirkliche Auflösung von 160 mal 160 Punkten umgerechnet 
wird- 

Sicher haben auch Sie schon das Problem gehabt, daß Sie ein 
Programm hatten, das nur für eine normale 3k Ram Erweiterung 
geschrieben wurde und nun nicht mit der Supererweiterung läuft- 
Es besteht aber die Möglichkeit, den Superexpander abzuschalten. 
Dies geschieht durch die einfache Eingabe eines SYS Befehls. 
Dieser lautet: SYS 64818 ( SYS steht immer für System ). Nach 
Eingabe dieses Befehls können Sie nun Ihre 3k Programme wie 
gewohnt einladen. 

Eingeschaltet wird der Superexpander wiederum mit einem SYS Be¬ 
fehl: SYS 64802. Dieser SYS Befehl ist ein System Reset 
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Befehl,das heißt, der VC—20 befindet sich im selben Zustand, wie 
nach dem Einschalten. Sie können dieses kontrollieren, indem Sie 
die Funktionstasten betätigen. Es werden nun wieder wie gewohnt 
die Expanderbefehle erscheinen. Auf den nun folgenden Seiten 
werden wir Ihnen einige Beispiele zeigen, die es Ihnen 
ermöglichen, wirklich alles aus dieser, wie wir meinen, 
einzigartigen Erweiterung herauszuholen. Viel Spaß beim Eingeben 
und Ausprobieren- Es folgt nun ein kleines Programm,das Ihnen die 
Vielzahl der Farbmöglichkeiten darlegt. 

100 PRINT "(CLR/HÜME) " 

110 DEF FNC(V) =V*16-8 

120 H=36879 

130 FÜR BK= 1 Tü 16 

140 PRINT "( CLEAR ) ( WHT) “ 

150 IF BK > 1 THEN PRINT " ( BLK) " ; 

160 PRINT •• HINTERGRUND" 

165 PRINT " (CRSR DOWN ) " BK 

170 FÜR BD = 0 Tü 7 

180 PÜKE H, FNC (BK) + BD 

190 PRINT , " RAHMEN " ; BD 

200 FÜR W = 1 TO 500 : NEXT U 

210 NEXT BD 

220 NEXT BK 

230 PÜKE H, 27 

240 END 


Nun haben Sie die vielen Möglichkeiten der Supererweiterung 
gesehen. Es folgen nun noch Programme, die Ihnen als kleiner 
Denkanstoß für Ihre eigenen Programme dienen sollen. Als erstes 
ein Programm das eine Sinus-Kurve mit dem dazugehörigen Koordina¬ 
tenkreuz zeichnet- 
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10 REM : SINUS-KURVE 
20 PRINT •' ( CLR/HÜME ) " 

30 COLOR 0,0,7,7 

40 FOR N=0 TO 1022 

50 M=512-400* SIN (N/512 * 3.14) 

60 GRAPHIC 2 
70 POINT 1,M,N 
80 NEXT N 

90 DRAW 2, O, 512T01023, 512T01023, 512 
100 DRAW 2, 512, 512T0512, 1023T0512, O 

Versuchen Sie nun mal, daraus ein Programm zu erstellen, das es 
Ihnen ermöglicht, eine beliebige Funktion einzugeben. Eine kleine 
Hil-fe am Rand: sehen Sie sich die Zeilen 40 und 50 an und 
überlegen Sie einmal, ob da nicht etwas mit Variablen zu machen 
ist. 


Das nächste Programm nennt sich Kaleidoskop, nicht ohne Grund, 
wie Sie nach dem Eingeben feststellen werden. Viel Spaß !! 


1 REM : KALEIDOSKOP 
5 PRINT " (CLR/HOME) " 

10 GRAHPIC 2 : COLOR 6,0,5,5 
20 REGION 5 

50 DEF FNA (X) = INT (RND (1)*X) +1 
100 FOR X=1T01023 STEP FNA (70)+10 
105 COLOR 2,0,5,5 
110 DRAW 1, X, 0T01023, X 
120 DRAW 1, O, XTOX, 1023 
130 DRAW 1, X, OTOO, 1023-X 
140 DRAW 1, 1023, XT01023-X, 1023 
145 COLOR 0,0,5,5 
150 DRAW 1, X, 0T01023-X, 1023 
160 DRAW 1, 1023, XTOO, 1023-X 
180 IF X=1020 THEN210 
200 NEXT 

210 FOR I=1T04500 : NEXT 
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220 GRAPHIC 4 : CGLÜR 1,3,6,6 
230 PRINT " NOCH EINMAL ??? <J/N) " 

240 GET ZZ$ 

260 IF ZZ^= "N" THEN PRINT :GDTÜ300 
270 IF 11 % <> "J" THEN 240 
280 GOTO 10 

300 FOR I=1TG2000 : NEXT 
310 END 

Das folgende Programm simuliert eine 3 D-Darstellung. Sie werden 
nach dem Abstand gefragt, der die Variable “’D" hat- In Zeile 4 
wird die Variable umbenannt nach "P" und mit dem Faktor 2,7 
addiert und taucht in der Zeile 110 wieder auf. Um den Abstand 
der Kreise zu berechnen, benötigt der Computer eine weitere 
Variable, die hier ebenfalls mit "D" benannt wird (Zeilen 6+7). 
Nachdem der Computer die Pseudo 3 D-Darstellung gezeichnet hat, 
wird der Bildschirm in Zeile 156 gelöscht und der Computer 
beginnt mit dem Zeichnen der vorher eingegebenen Kreise. In Zeile 
230 wird wieder in den normalen Graphik—BiIdschirm 
zurückgeschaltet. Dieses geschieht mit dem Befehl "GRAPHIC 4" und 
dem Color—Befehl "COLGR 1,3,6,6". Sie werden aufgefordert, ein 
neues Bild nach Eingabe Ihrer Koordinaten zeichnen zu lassen. 
Beantworten Sie diese Aufforderung mit nein, springt der Computer 
zum Ende des Programms und zeigt Ihnen den noch frei verfügbaren 
Speicherplatz an. 

O PRINT "(CLR/HGME)" 

2 PRINT "WELCHEN ABSTAND<10-90)" 

3 INPUT D 

4 P=D+2.7 

5 PRINT"WELCHER ABSTAND DER KREISE (10-100)" 

6 INPUT D 

7 D=D 

9 COLOR 0,0,0,0 
10 GRAPHIC 2 
20 REGION 1 

50 DEF FNA (X)=INT (RND(1)*X)+1 
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100 FOR A= 1TÜ4 

110 FOR X= 10TÜ1023 STEP FNA (P) +10 
120 DRAW 1,1023-X, X Tü X, 0+X 
130 DRAW 1,X,1023-X Tü 0+X,X 

150 NEXT X,A 

151 FORI= 1TÜ5000: NEXT 

156 SCNCLR 

157 CÜLÜR 0,0,7,7 

160 CIRCLE 3, 500,500 ,D,D 
170 IF D=400 THEN GOTO 220 
180 D=D+20 
190 GOTO160 

220 FÜR 1= 1 TO 2000:NEXT 
230 COLOR 1,3,6,6: GRAPHIC 4 
240 PRINT "NEUES BILD ??" 

250 GET ZZ^ 

260 IF ZZ^= "N" THEN PRINT: GOTO 295 
270 IFZZ$ <> "J" THEN 250 
290 GOTOO 

295 PRINT "(CLR/HOME)" 

300 PRINT FRE (O) : PRINT " BYTES FREI" 

In dem nächsten Programm wird ein gegebener Kreis gezeichnet, wie 
Sie aus Zeile 70 ersehen koennen- In Zeile 20 ist eine Abfrage, 
die Sie nur mit "K" oder "H" beantworten können. Solange Sie 
keine Eingabe gemacht haben, bleibt der Rechner in Zeile 30 
stehen- In den Zeilen 40 und 50 ersehen Sie dann, in welche 
Zeilen der Rechner springt- Nachdem der Programmablauf beendet 
ist, werden Sie in Zeile 160 gefragt, ob Sie einen neuen 
Durchmesser wünschen. Antworten Sie mit nein, springt der 
Computer direkt an das Ende des Programms, dieses können Sie der 
Zeile ISO entnehmen. Antworten Sie positiv, können Sie einen 
neuen Radius wählen, der mit der Variable "D" definiert wird. 
Dieses "D" taucht in den Zeilen 290 und 340 wieder auf. Als 
nächstes können Sie eine neue Farbe wählen. Sie ist hier mit der 
Variablen "F" definiert- Dieses "F" finden Sie in den Zeilen 300 
und 350 wieder. Der Computer zeichnet dann, je nach Ihrer 
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Eingabe, den angegebenen Kreis, füllt diesen oder den Hintergrund 
aus. Danach wird der Rechner angewiesen, in eine Warteschleife zu 
gehen und erneut nach einem neuen Durchmesser zu fragen- Sie 
können die Position des Kreises dadurch ändern, indem Sie eine 
neue Abfrage hinzufügen und sie mit der Variablen "P" 
kennzeichnen. Dieses "P" müßte dann in den Zeilen 290 , 340 und 
360 durch den angegebenen Wert 500 ersetzt werden- 


10 PRINT "(CLR/HÜME)" 

20 PRINT "SOLL DER KREIS ODER DER HINTERGRUND 
AUSGEFÜLLT WERDEN (K/H)" 

30 GET ZZ$ 

40 IF ZZ$="K" THEN PRINT: GOTO 100 

50 IF ZZ$<>"H" G0T030 

60 GRAPHIC 2: COLÜR 0,0,5,7 

70 CIRCLE 2,500,500,200,200 

SO REGION 2 

90 PAINT 2,0,0 

95 GOTO 140 

100 GRAPHIC 2: COLOR 0,0,5,7 

110 CIRCLE 2,500,500,200,200 

120 REGION 2 

130 PAINT 2,500,500 

140 F0RI= 1T03000:NEXT 

150 GRAPHIC 4 : COLOR 1,3,6,6 

155 SCNCLR 

160 PRINT "NEUER DURCHMESSER (J/N)??" 

170 GET ZZ$ 

180 IF ZZ$="N" THEN PRINT:GOTO 500 
190 IF ZZ^<>"J" THEN 170 
200 PRINT "(CLR/HOME)" 

210 PRINT "WIE GROSS (10-450)?" 

220 INPUT D 

221 PRINT "NEUE FARBE (1-159)?" 

222 INPUT F 

230 PRINT"SOLL DER KREIS ODER DER HINTERGRUND 
AUSGEFÜLLT WERDEN (K/H)?" 
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240 GET ZZ$ 

260 IF ZZ^="K‘* THEN PRINT: GOTO 330 

270 IF ZZ^<>"H" GOTO 240 

280 GRAPHIC 2 :COLOR 0,0,5,7 

290 CIRCLE 2,500,500,D,D 

300 REGION F 

310 PAINT 1,500,1023 

320 GOTO 370 

330 GRAPHIC 2: COLOR 0,0,5,7 

340 CIRCLE 2,500,500,D,D 

350 REGION F 

360 PAINT 2,500,500 

370 FOR 1= 1T03000 :NEXT 

380 GOTO 150 

500 END 


Als nächstes -folgt ein Programm, das nach Eingabe der Variablen 
"A", die tür den Abstand steht, eine Aneinanderreihung von 
mehreren Kreisen, die in sich selber eine geschlossene Ellipse 
darstellen. Die Pokes in den Zeilen 1,2 und 8 verkleinern den 
Bildschirm auf den maximal benötigten Platz, um die Fragen 
in den Zeilen 6+9 darzustel1en- 

Die Anweisung in der Zeile 120 veranlaßt den Computer, die 
Umrandung der Darstellungsfläche zu zeichnen. Nachdem dieses 
geschehen ist, wird er in den Zeilen 140 und 150 angewiesen, die 
Kreise zu berechnen, wobei hier wieder die Variable "A" 
auftaucht, die den Abstand der Kreise angibt, dann wird der 
Kreis, der mit der Variablen "X", die ja vorher in der Zeile 50 
ausgerechnet wurde und unserer bereits am Anfang eingegebener 
Variable "D" besteht. Sobalt die Funktion "ARC" 6.3 ergibt, geht 
der Rechner zum Anfang des Programmes zurück. Ist dies nicht der 
Fall, wird er in der Zeile 170 angewiesen, einen neuen Kreis zu 
zeichnen, so lange, bis der Wert 6.3 erreicht ist. 


71 


1 POKE 36883,10 

3 POKE 36881,25 

4 PRINT " (CLR/HOME)'• 

5 PRINT "WELCHER ABSTAND (.10-.90)??" 

6 INPUT A 

7 PRINT "(CLR/HOME)" 

8 POKE 36883,10: POKE 36881,120 

9 PRINT "WELCHEN URCHMESSER (10-250)??" 

10 INPUT D 

30 GRAPHIC 2: COLOR 0,0,13,7 
120 DRAW 2,0,OTOO,1023T01023,1023T01023,OTOO,O 
140 FOR ARC = O TO 2.0 * 3-14 STEP A 
150 X=512 +200* COS (ARC) :Y=512+200 * SIN (ARC) 
160 CIRCLE 2,X,Y,D,D 
165 IF ARC= 6-3 THEN 175 
170 NEXT ARC 

175 F0RT=1 TO 4000: NEXT 
180 GRAPHIC 4 : COLOR 1,3,6,6 
190 GOTOl 
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4.) Der VC-20 Sound 


4.1 Grundlagen 

Wenn Sie die Übersicht über die Register des Video—Chip 
aufmerksam studiert haben, so konnten Sie feststellen, daß fünf 
Register dieses elektronischen Bausteins für die Tonerzeugung 
zuständig sind. Der Name "Video-Chip" ist für dieses kleine 
technische Wunderwerk also etwas untertrieben. 

Die fünf Soundregister des Video-Chip sind die Register a bis e, 
d. h- die Register 10 bis 14. Wie Sie bereits wissen, liegt die 
Startadresse des Videochip bei 36864. Daraus ergibt sich, daß die 
Speicherplätze für die fünf Soundregister die Speicherstellen 
36864+10=36874 bis 36878 sind. 

Wie sind nun die Aufgaben unter diesen fünf Registern verteilt? 
Die ersten drei Register sind normale Tongeneratoren. Sie können 
Töne über fünf Oktaven erzeugen. Das vierte Register ist der 
Rauschgenerator. Es dient zur Erzeugung von Geräuschen und 
Geräuscheffekten. Das fünfte Register schließlich kontrolliert 
die Lautstärke . 

Um einen Ton oder ein Geräusch zu erzeugen, müssen Sie immer zwei 
Dinge tun: Einmal die Lautstärke setzen und zum zweiten einen der 
ersten vier Register mit einem Wert größer als 127 belegen. Warum 
größer als 127? Um dies zu verstehen, müssen wir uns noch einmal 
den Plan der Video-Chip-Register ansehen. Betrachten Sie das 
höchstwertigste Bit der ersten vier Soundregister- Sie sehen, daß 
dort S1 bis S4 steht- Dies bedeutet, daß das Video-Chip so 
konstruiert ist, daß ein Ton erst erklingt, wenn dieses oberste 
Bit gesetzt ist- Dies hat den Vorteil, daß ein Tonkanal 
abgeschaltet werden kann, ohne daß der gespielte Ton verloren 
geht. Probieren Sie einmal folgendes: 
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PÜKE36874,195 
PÜKE36878,15 

Nachdem Sie dies eingetippt haben laufen lassen, erklingt ein 
niittelhohes C. Tippen Sie nun das Folgende ein: 

P0KE36874,PEEK(36874)-128 

Augenblicklich verstummt der Ton. Das eben eingetippte C ist aber 
nicht verloren gegangen. Durch die Subtraktion von 128 haben Sie 
lediglich das oberste Bit des Registers auf Null gesetzt, da 
dieses ja die Wertigkeit 128 besitzt. Addieren wir nun wieder die 
128. Tippen Sie Folgendes ein. 

P0KE36874,PEEK(36874)+128 

Sie hören nun wieder Ihr C. Ein etwas eleganterer Weg den Kanal 
verstummen zu lassen ist, anstatt der Subtraktion die "und" - 
Verknüpfung zu benutzen. Diese Operation gewährleistet auch, daß 
Sie keine negativen Werte bekommen, sollte das Register zufällig 
keinen Wert größer als 127 haben und damit bekommen Sie auch auf 
keinen Fall eine Fehlermeldung. Der sichere Befehl zum 
Verstummenlassen eines Registers lautet also: 

P0KE36874,PEEK(36874)AND127 

Nun ist wieder alles ruhig. Wenn Sie Ihr C wieder hören wollen, 
benutzen wir nun die "oder" — Verknüpfung. Diese Operation ist 
wieder nicht nur eleganter, sie gewährleistet auch, daß Sine 
Werte größer als 255 bekommen, die dann ja wieder eine Fehler— 
meldung verursachen würden. Tippen Sie ein: 
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PÜKE36S74,PEEK(36874)OR128 


Ihr C ist wieder da. Dies können Sie mit jedem der ersten vier 
Register machen. 

Das -fünfte Register ist, wie bereits erwähnt, das 
Kontrol1register für die Lautstärke- Für die Lautstärke sind die 
vier unteren Bits dieses Registers zuständig. Dies bedeutet, daß 
Sie Werte zwischen 0 und 15 in die Speicherstelle 36878 schreiben 
können, um die Lautstärke zu regeln. Der Wert O bedeutet, daß die 
Lautstärke O ist,d.h. Sie hören nichts. 15 ist demnach die 
größte Laustärke. 

Wir verzichten hier darauf. Ihnen eine Tabelle der Noten mit den 
dazugehörigen Werten für die einzelnen Speicherstellen zu geben. 
Eine solche Tabelle finden Sie in Ihrem VC-20 Handbuch. 
Stattdessen geben wir Ihnen im nächsten Kapitel ein Programm an 
die Hand, mit dessen Hilfe Sie sehr komfortabel Töne, Geräusche 
und Toneffekte erzeugen können, den Soundeditor. Weiter wollen 
wir Ihnen zeigen, wie Sie die Tastatur Ihres VC—20 in die eines 
kleinen Synthsizers verwandeln können und schließlich liefern wir 
Ihnen noch ein paar Anregungen, wie Sie ein Schlagzeug program¬ 
mieren können. 
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4.2 Der Soundeditor 


Wenn Sie schon einmal ein Spiel programmiert haben, haben Sie 
sicher auch schon vor dem Problem gestanden, daß Sie ein 
bestimmtes Geräusch erzeugen wollten. Sie haben dann sicher sehr 
lange die verschiedensten Werte eingetippt und ausprobiert- Der 
Soundeditor macht nun die Erzeugung von Tönen und 

Geräuschef-Fekten um vieles einfacher- 
Folgende Funktionen hat der Soundeditor: 

Wenn Sie das Programm starten, sehen Sie sechs Reihen auf dem 
Bildschirm. Die ersten vier Reihen entsprechen den ersten vier 
Soundregistern des Video-Chip. Die Reihen 5 und 6 haben eine 

besondere Funktion. Geräuscheffekte haben die Eigenschaft, einen 
längeren Zeitraum zu beanspruchen. Innerhalb dieses Zeitraums 
erreichen die Geräusche Ihre maximale Lautstärke und verklingen 
dann wieder. Dieser Zeitraum kann sehr kurz sein, z.B. das 
Geräusch der Rotorblätter eines Hubschraubers oder auch sehr 
lang, z.b. das Martinshorn eines Feuerwehrwagens. Die Reihen mit 
den Namen "Ansteigen" bzw. "Abfallen" gestatten Ihnen nun genau 
diese Effekte zu programmieren. 

Und so arbeiten Sie mit dem Soundeditor: 

Wählen Sie zuerst mit Hilfe der Cursortasten hoch und runter die 
gewünschte Reihe an. Die ausgewählte Reihe erscheint nun in 
inverser Darstellung. Wenn Sie nun den Wert dieser Reihe erhöhen 
wollen, so benutzen Sie die Funktionstaste Fl. Zu dem Wert dieser 
Reihe wird eins addiert. Wollen Sie den Wert um eine größere Zahl 
ändern, benutzen Sie die Funktionstaste F2 (SHIFT-Fl) . Zu dem 
Wert dieser Reihe werden nun 10 addiert. Wollen Sie den Wert der 
Reihe erniedrigen, so benutzen Sie die Funktionstaste F3 um den 
Wert um eins zu vermindern und die Taste F4 (SHIFT-F3) um den 
Wert um zehn zu vermindern. Für die ersten 4 Reihen werden keine 
Werte kleiner als 127 oder größer als 255 angenommen, da sie 
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nicht sinnvoll bzw. nicht erlaubt sind. Die beiden letzten Reihen 
dür-fen Werte zwischen 1 und 999 annehmen. Wenn Sie die RETURN- 
Taste drücken, erklingt der Ton, der sich aus sämtlichen auf dem 
Bildschirm sichtbaren Werten ergibt- 

Auf der nächsten Seite finden Sie das Listing zu dem Soundeditor. 
Hier noch ein paar Erläuterungen zu einzelnen Programmzeilen: 
Zeile 10—60 Anfangswerte, über- und Untergrenzen und die Repeat— 
funktion für alle Tasten werden gesetzt (Zeile 18). 
Zeile 70 Abfrage ob Taste gedrückt 
Zeile 75-76 Abfrage ob Cursortaste gedrückt 
Zeile 80-92 Bewegung durch Cursortasten 
Zeile 93-96 Abfrage der Funktionstasten 
Zeile 100 Abfrage der RETURN-Taste 
Zeile 110-142 Änderung der Werte und Ausdruck 
Zeile 2000-2040 Spielen des Tons 

Haben Sie nun Ihren gewünschten Toneffekt gefunden, so müssen Sie 
sich nur noch die Werte der 6 Zeilen vom Bildschirm abschreiben 
und in Ihrem Programm eine Schleife wie in den Zeile 2000-2040 
einbauen. In Zeile 2000 werden die Werte der ersten vier Reihen 
in die entsprechenden Speieherstel1en geschrieben. Die restlichen 
Zeilen sind für das Ansteigen und Abfallen des Tones 
verantwortlich. 

Sie sehen also, die Erzeugung eines Effektes ist um vieles 
einfacher geworden. Auf den nächsten beiden Seiten finden Sie nun 
das Listing des Programms- Wir wünschen Ihnen viel Spaß bei der 
Entdeckungsreise durch die verschiedensten Toneffekte. 
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5 REM **** SOUNDEDITOR **** 

10 V=36878:S< 0)=36874:S< 1 ) =36875:S< 2)=36876:S< 3)=36877 

16 FORI=0TO3:OC I)=255:NEXTI:0<4)=999:OC5)=999 

17 FORI=0TO3:U< I) = 127:NEXTI:U<4) = 1:U( 5) = 1 

18 POKE650,128 

20 PRINTCHR$( 147) 

30 FORI=0TO5 
40 READi=l$< I ) 

50 Uk I ) = 127 

55 PRINT8$( I );UK I ) :PRINT 

56 NEXTI 

57 Z=0 

60 PRINTCHR^ 19) :PRINTCHR$< 18 ) ; Z ) ; UK Z ) ; CHR$< 146) 

70 GETA$:IFA^=""THEN70 

75 IF8$=CHR*<17)ANDZ<5THEN80 

76 IF8$=CHR*< 145)flNDZ>0THEN90 

77 G0T093 

80 PRINTCHR*< 145); ASC Z );UK Z ) :PRINT 

81 Z=Z+1 

92 PR INTCHR^ 18); Z ) ; UK Z ) ; CHR$< 146) 

85 G0T0999 

90 PRINTCHRS< 145);A$< Z );W< Z ); 

91 F0RI = 1T03:PRINTCHR«< 145); :NEXTI:PR INT 

92 Z=Z-1 :PR INTCHRS< 18 ) ; A:S< Z ) ;UK Z ) ; CHR^rC 146):G0T0999 

93 IF8*=CHRS< 133 )ANOUI< Z )< 0< Z )THEN1 10 

94 IFA«=CHR*< 134 ) ANDUX Z ) >UC Z )THEN 120 

95 IFA*=CHRS( 137)ANDW<Z)<0<Z)-10THEN130 

96 IFA$=CHR« 138)ANDUK Z ) >U< Z ) + 10THEN140 
100 IFASC< A«) = 13THEN6OSUB2000:6OTO999 
105 60T0999 

110 UJ<Z)=UKZ) + 1 

111 PR I NTCHR«< 145); CHR:^< 18); A« Z ) ; WC Z ) ; CHR^C 146 ) 

1 12 G0T0999 
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120 UJ< Z )=UK Z ) - 1 

121 PRINTCHR$< 145);CHR$< 18 ) ; Z ) ; W< Z ) ; CHR«< 14B);CHR$< 157)” ” 

122 G0T0999 

130 WC Z )=UIC Z ) + 10 

131 PR I NTCHR$< 145); CHR$< 18); Z ) ; W< Z ) ; CHR:5< 148) 

132 G0T0999 

140 WC Z )=UI< Z )-10 

14 1 PR I NTCHR^< 145); CHR$< 18); Z ) ; W< Z ) ; CHR«( 146); CHR«< 157)" " 

142 G0T0999 

999 GOTO70 

1000 DRTR "KRNRL 1 ","KRNRL 2 ",“KRNRL 3 ","RRUSCHEN 

1010 DRTR"RNSTEIGEN " ,-RBFRLLEN 

2000 FORI=0TO3:POKE3B874+I,W<I):NEXTI 
2005 FDRI=0TO15STEP15/UK 4) 

2010 POKEV,I:NEXTI 

2020 FORI = 15TO0STEP-15/UJ< 5) 

2030 POKEV,I:NEXTI 
2040 RETURN 

RERDY. 
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4.3 Der VC-20 als Synthesizer 


Das folgende Programm gestattet es Ihnen, Ihren VC-20 als 
Synthesizer einzusetzen- Die Buchstabenreihe von Q bis fungiert 
als die weißen Reihen der Tastatur- Die schwarzen Tasten werden 
von der Zahlenreihe repräsentiert- Da nicht über jeder weißen 
eine schwarze Taste liegt, sind natürlich auch nicht alle Zahlen¬ 
tasten belegt. Betätigen Sie eine Taste aus diesen beiden Reihen, 
ertönt sofort der zugehörige Ton- Das Q entspricht dabei dem Ton 
C, das UJ dem Ton D u.s.w. 

Dies alles ist nun zugegebenermaßen nicht sehr neu- Doch der Clou 
dieses Programms kommt ja noch- 

Starten Sie das Programm. Sie sehen als erstes eine Abfrage, ob 
Sie in den Spiel- oder Programmiermodus möchten- Tippen Sie "S" 
für Spielmodus ein. Sie können nun die beiden obersten Reihen als 
Klaviertasten verwenden wie oben beschrieben- Verlassen Sie 
diesen Modus, indem Sie die Pfeiltaste links oben auf der 
Tastatur betätigen. Wählen Sie nun "P" für Programmiermodus- Sie 
sehen nun zwei Zeilen auf dem Bildschirm. Diese beiden Zeilen 
entsprechen den letzten beiden Zeilen des Soundeditors aus dem 
letzten Kapitel. Sie können hier nun den Verlauf des Tones 
genauso wie im Soundeditor bestimmen. Sind Sie mit dem Verlauf 
zufrieden, verlassen Sie den Programmiermodus wieder mit der 
Pfeiltaste links oben und gehen Sie wieder in den Spielmodus. 
Wenn Sie nun spielen, klingt dieser so, wie Sie es eben 
programmiert haben. Sie haben also einen kleinen aber feinen 
Synthesizer aus Ihrem VC-20 gemacht. 

Schnell noch ein paar Erklärungen zu den Programmzeilen, bevor 
Sie sich ans Tippen stürzen: 

Zeile 10-41 Die Anfangsvariablen werden gesetzt- In W1<I) und 
W2(I) werden die Zahlenwerte für die Töne, in T(I) 
die dazugehörigen Tastaturcodes gespeichert. 
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Zeile 

45-50 

Abfrage ob Spiel- oder Programmiermodus 


Zei le 

51-60 

Initialisierung Programmiermodus 




Zei le 

70 

Abfrage Taste gedrückt 




Zei le 

75-76 

Abfrage Cursortaste 




Zei 1 e 

80-92 

Ausführen der Cursortasten 




Zei le 

93-96 

Abfrage der Funktionstasten 




Zeile 

100 

Abfrage der RETURN-Taste 




Zei 1 e 

101 

Abfrage der Pfeiltaste 




Zei le 

110—141 Austühren der Funktionstasten 

und 

Ausdruck 

der 



neuen Werte 




Zeile 

1000- 

1048 Werte für die Töne 




Zei le 

1050- 

1065 Werte für die Tastaturabfrage 




Zeile 

2000- 

2040 Spielen eines Tones 




Zei le 

3000 

Initialisierung Spielmodus 




Zei 1 e 

3010 

Abfrage Taste gedrückt 




Zei le 

3015 

wenn Pfeil links dann Spielmodus verlassen 


Zei 1 e 

3020 

Suchen der gedrückten Taste 




Zei le 

3030 

nicht gefunden dann zurück 

zu 

Abfrage 

Taste 



gedrückt 




Zei le 

3040 

Zuweisung der Variablen für Unterprogramm 


Zei 1 e 

3050 

Ton spielen , dann zurück 

zu 

Abfrage 

Taste 



gedrückt 




Aut 

der 

nächsten Seite finden Sie nun 

das 

Listing 

zum 


Synthesizer- Auch Menn Sie drei Seiten Programm eintippen müssen, 
es ist die Mühe wert. 
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5 REM **** SYNTHESIZER ***** 

10 V=36878:S< 0)=36874:S< 1)=36875:SC 2)=36875 

15 DIMUlC 23) ,UJ2C 23) ,TC 23) 

16 0( 4)=999:0< 5)=899:UC 4) = 1:UC 5) = 1 

30 F0RI=4T05:READH$< I):WC I)=127:NEXT:Z=4 

40 F0RI = 1T023:REHDU1C I ) : RE8DUI2C I):NEXTI 

41 F0RI = lT023:REftDT( I):NEXTI 

45 PRINTCHR^ 147):PRINT"SPIEL- ODER" 

46 PR INT"PROGRAMMIERMODUS" 

47 PRINT"CS/P)" 

48 GETRS:IFA$=""THEN48 

49 IFR$="S"THEN3000 

50 IFR«<>"P"THEN48 

55 PRINTCHR:»: 147) :F0RI=4T05 

56 PRINTR^ I ); WC I ) :PRINT 

57 NEXTI 

60 PRINTCHR^ 19 ) : PR INTCHR^C 18 ) ; R$C Z ) ; WC Z ) ; CHR*C 146) 

70 GETR$:IFA^=“"THEN70 

75 IFA«=CHR^ 17)RNDZ<5THEN80 

76 IFR*=CHR$C 145)RNOZ>3THEN90 

77 60T093 

80 PRINTCHRSC 145);R$C Z );WC Z ) 

81 PRINT 

82 Z=Z+1 

83 PRINTCHR^C 18 ) ; R*C Z ) ; WC Z ) ; CHR*C 146) 

84 60T0999 

90 PRINTCHR^ 145);R$C Z );wc Z ); 

91 F0RI = 1T03:PRINTCHR$C 145);:NEXTI:PR INT 

92 Z=Z-1 :PRINTCHR^ 18);R«C Z ) ; UK Z ) ; CHR$C 146) :G0T0999 

93 IFA$=CHR$C 133 ) ANDWC Z )< OC Z )THEN1 10 

94 IFR^=CHR^ 134)RNDWC Z ) >UC Z )THEN120 

95 IFR*=CHRSC 137 ) ANDWC Z )< OC Z )-10THEN130 

96 IFA*=CHRSC 138 ) ANDWC Z ) >UC Z ) +10THEN140 

100 IFASCC A*) = 13THEN6DSUB2000:GOTO999 

101 IFASCCA«)=95THEN45 
105 G0T0999 

110 WC Z )=WC Z ) + l 

111 PRINTCHR^C 145);CHR$C 18 ) ; A^ Z ) ; WC Z ) ; CHR*C 146) 

112 GDT0999 

120 WC Z )=WC Z )-l 

121 PR I NTCHR^C 145); CHR*C 18); A^ Z ) ; WC Z ) ; CHR^C 146); CHR« 157)" 

122 G0T0999 
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130 U(Z)=UJ<Z) + 10 

131 PRINTCHR^< 145);CHR«< 18 ) ; Z ) ; W< Z ) ; CHR«< 146) 

132 G0T0999 

140 U( Z )=UI< Z )-10 

141 PR I NTCHR^C 145); CHR^C 18); AS< Z ) ; UK Z ) ; CHR«( 146); CHR$C 157)" 

142 G0T0999 
999 GOTO70 


1000 

DATA 

"ANSTEIGEN ", “ABFALLEN 

1020 

DATA 

192,195,197,197 

1025 

DATA 

200,200,203,203 

1030 

DATA 

206,207,208,209 

1035 

DATA 

211 ,212,214,214 

1036 

DATA 

216,216,218,219,220,221 

1040 

DATA 

222,223,224,224 

1045 

DATA 

226,226,227,227 

1046 

DATA 

229,229,231,231,232,232 

1047 

DATA 

233,233,234,234 

1048 

DATA 

236,236,237,237,238,238 

1050 

DATA 

81 ,50,87,51 

1055 

DATA 

69,82,53,84 

1056 

DATA 

54,89,55,85,73,57 

1060 

DATA 

79,48,80,64 

1065 

DATA 

45,42,92,94,19 

2000 

FORI 

=0TO3:POKE36874+I,W< I):NEXTI 

2005 

FORI 

=0TO15STEP15/W< 4) 


2010 POKEV,I:NEXTI 

2020 FORI=15TO0STEP-15/W<5) 

2030 POKEV,I:NEXTI 
2040 RETURN 

3000 PRINTCHR$<147):PRINT"SPIELMODUS" 
3010 GETA*:IFA«=""THEN3010 
3015 IFASC<A«)=95THEN45 

3020 F0RI=1T023:IFASC<A«)=T< I)THEN3040 
3030 NEXTI:GOTO3010 

3040 UK 1 )=WK I ) : W< 2 ) =UJ2< I ) : W< 3 ) =0 : UX 0 ) =0 
3050 GOSUB2000:GOTO3010 

READY. 
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4.4 Schlagzeug auf dem VC-20 


Ein besonders faszinierendes Gebiet der Geräuscherzeugung ist die 
Imitierung eines Schlagzeuges. Auch wenn Ihre Anverwandten Ihre 
Versuche in dieser Richtung vielleicht als störend empfinden 

könnten, sollte Sie das nicht abschrecken. Leider geht es aber 
auch hier nicht ohne ein bißchen Theorie. 

Bevor Sie sich an die Programmierung eines Schlagzeuges geben, 
müssen Sie sich zuerst einmal die verschiedenen möglichen 

Klangkörper eines Schlagzeuges vor Augen führen und herausfinden, 
wie Sie diese erzeugen. Hier hilft nur langes Probieren (und die 
kleinen Beispiele als Hilfe am Ende dieses Kapitels). Eine nütz¬ 
liche Hilfe wird Ihnen dabei sicher der Soundeditor sein. Wenn 
Sie den Klang Ihrer Trommeln herausgefunden haben, können Sie an 
die eigentliche Programmierung gehen. Sie überlegen sich die 
Taktart, wo die Betonungen liegen und legen entsprechend Ihre 

Instrumente. Wir können hier und jetzt leider keinen kompletten 

Kursus über Rhythmik und verschiedene Taktarten abhalten. Wenden 
Sie sich dazu bitte an einen Schlagzeuger oder die einschlägige 
Fachliteratur- Wir wollen Ihnen nur ein Beispiel geben, wie Sie 
einen 3/4 Takt erzeugen können. Die Auswahl der Trommeln ist 
relativ willkürlich und Sie müssen Sie Ihrem eigenen Geschmack 
anpassen. 

Das folgende Programm erzeugt also einen Walzertakt- In Zeile 10 
werden die Variablen für die Register gesetzt, in Zeile 20 die 
Lautstärke auf maximales Volumen gesetzt. In Zeile 1000 wird das 
erste Instrument gespielt. Der erzeugte Ton ist relativ tief 
(Baßtrommel) und betont den ersten Taktschlag sehr gut- In Zeile 
1005 wird eine Warteschleife aufgerufen, die die Geschwindigkeit 
des Rhythmus bestimmt. Nun folgen zwei weniger betonte Takt— 
Schläge (Snare). Dies geschieht in den Zeilen 1010 bis 1060- 
Zeile 1998 bewirkt, daß der nächste Takt begonnen wird- Sie 
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sehen 


daß es gar nicht allzu schwer ist 


einen Rhythmus zu 


programmieren- 

Hier nun das Listing: 

10 V=36878:S(0)=36874:8(1)=36875:8(2)=36876:8(3)=36877 
20 P0KEV,15 

1000 PÜKE8(0),128 

1001 PÜKE8(1),139 

1002 P0KE8(1),0 

1003 P0KE8(0),0 

1005 GÜ8UB2000:REM WARTE8CHLEIFE 

1010 FÜRI=1T02 

1020 PGKE8(2),222 

1030 PGKE8<3),244 

1040 PGKE8(2),0 

1050 PGKE8(3),0 

1055 GG8UB2000:REM WARTE8CHLEIFE 

1060 NEXTI 

1998 GOTO1000 

2000 FORW=1T0500:NEXTW 

2010 RETURN 

Aut der folgenden Geite finden 8ie nun noch ein paar 

für verschiedene Klänge eines 8chlagzeuges- 

Wir vereinbaren folgende Werte für die Variablen: 

8(1)=36874:8(2)=36875:8(3)=36876:8(4)=36877:V=36878 


Beispiele 
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Zuerst noch einmal die Werte aus unserem Walzer—Rhythmus: 

PÜKEV,15 
POKES(l),128 
P0KES(2),138 
POKES(1),0 
PGKES(2),0 

Der hieraus resultierende Ton ist der einer Basstrommel und gut 
■für Betonungen geeignet. 

Der zweite Ton, der einer Snare, ist folgender: 

P0KEV,15 
POKES(l),221 
POKES(2),244 
POKES(1),0 
POKES(2),0 

S-Tom und H-Tom lassen sich mit den folgenden zwei Kombinatioen 
imitieren: 

L-Tom 
P0KEV,15 
POKES(3),165 
POKES(3),166 
POKES(3),167 
POKES(3),O 

H-Tom 
P0KEV,15 
POKES(3),194 
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PGKES(3),195 
PQKES(3),193 
P0KES(3),0 


Das Hi-Hat wird so erzeugt: 

PÜKEV,15 
PÜKEV,12 
PÜKES(4),254 
PÜKEV,6 
P0KES(4>,254 
P0KES(4),0 

Das Stockschlagen des Schlagzeugers schließlich können Sie so 
imitieren: 


PÜKEV,12 
PÜKES(3),245' 

P0KES<3),244 
PaKES(3),245 
PÜKES(3),0 

Sie haben nun die wichtigsten Instrumente eines Schlagzeugers zur 
Hand. Der Karriere Ihres VC—20 als Rhythmusmaschine steht 
eigentlich nichts mehr im Wege. 
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KAPITEL 5 : PGKES UND ANDERE NÜTZLICHE ROUTINEN 


In diesem Kapitel werden Sie eine ganze Menge nützliche Routinen 
kennenlernen, die Sie in Ihren Programmen verwenden können, um 
diese schneller und eleganter zu machen. Es empfiehlt sich in 
diesem Zusammenhang, sich außerdem noch mit dem Betriebssystem 
des VC—20 zu beschäftigen. Sie werden nicht nur einige 
trickreiche POKES finden, sondern auch Informationen über 
verschiedene PEEKS und SYS. Die meisten Routinen lassen sich 
sowohl von BASIC als auch von Maschinenprogrammen aufrufen. Es 
ist leicht verständlich, daß durch solche Routinen Ihre Programme 
bedeutend schneller und kürzer werden. 

Zunächst aber erst etwas über die verschiedenen Befehle zum 
Aufruf der Routinen. 

Von BASIC aus: 


NEN 

Ein Befehl, der unter Umständen fatale Folgen haben kann. 
Trotzdem sollte auch seine Wirkungsweise hier besprochen werden. 
Wenn Sie ein Maschinenprogramm geladen haben, sollten Sie danach 
jedesmal den NEW—Befehl anwenden. Er setzt die wichtigen Register 
in der Zero-Page auf ihren Urzustand zurück. So können Sie auch 
zusätzlich noch ein BASIC Programm eingeben, ohne schon nach der 
ersten Eingabe eine eigenartige Fehlermeldung zu bekommen. 
Natürlich gehen bei diesem Befehl alle BASIC Programme, die zu 
diesem Zeitpunkt im Speicher stehen verloren - MASCHINENPROGRAMME 
ABER NICHT ! 


PEEK 

Eine sehr interessante Funktion ist die PEEK-Funktion. Mit dieser 
Funktion können Sie alle Speicherstellen auslesen. Verändert wird 
hierbei überhaupt nichts. Sie sollten aber darauf achten, daß die 
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Resultate dieser Funktion in dezimaler Form ausgegeben werden. Um 
nun diese Resulate genau zu verstehen, kann es manchmal nützlich 
sein, sie in hexadezimale Form zu übersetzen- überhaupt spielt 
diese Form der Zahlendarstellung in diesem Bereich der 
Programmierung eine große Rolle. Ein Beispiel der PEEK—Anwendung 
soll dieses verdeutlichen: 

Um den An-fang des BASIC-Bereiches zu bekommen, also den BASIC- 
Programmstart, können Sie folgende Eingabe machen: 

PRINT PEEK (43) + 256 * PEEK (44) 

Das Resultat lautet zum Beispiel bei einem ohne 
Spei ehererweiterung ausgerüstetem VC—20 4097, bei einem Gerät mit 
der 3K Supererweiterung 1025 und bei einer BK oder 16K 
Erweiterung 4609. 

Nun noch etwas zu der Darstellung der Rechnung. PEEK (43) ist das 
untere Byte der 2 Byte Adresse und PEEK (44) das obere Byte. Wir 
sprechen in diesem Zusammenhang auch von Low— und Highbyte- Um 
das richtige Resultat zu erlangen, müssen wir das Highbyte noch 
mit 256 multiplizieren, und dann noch das Lowbyte addieren. 
Entsprechend lassen sich auch alle anderen Adressen berechnen, 
der BASIC—Programmstart soll hier nur als Beispiel diesen. 

Weitere interesannte Adressen der Zeropage sind noch: 








Adressen 

Zeiger 

auf 

den 

Start 

der 

Variablen 

(45, 

46) 

Zeiger 

auf 

den 

Start 

der 

Arrays (Felder) 

(47, 

48) 

Zeiger 

auf 

das 

Ende 

der 

Arrays 

(49, 

50) 

Zeiger 

auf 

den 

Start 

der 

Strings (Texte) 

(51 , 

52) 

Zeiger 

auf 

das 

Ende 

des 

BASIC-RAM 

(55, 

56) 


Zu der Benutzung dieser Adressen kommen wir später noch. 
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PGKE 


Durch den PÜKE-Befehl werden die einzelnen Speicherstel1en mit 
dem angegebenen Wert überschrieben. Auch hier ist darauf zu 
achten, daß die Wert in dezimaler Form eingegeben werden. 
Außerdem dürfen sie nur im Bereich von 0 bis 255 liegen. Andere 
Werte würden zu einem ILLIGAL QUANTITY ERROR führen. Doch passen 
Sie bei der Benutzung des POKE-Befehls besonders auf: Sie können 
sich damit Ihre ganzen Programme zerstören, oder das Gerät ganz 
zum "Absturz" bringen. Vor allen Dingen BASIC-Programme sind bei 
der Benutzung sehr gefährdet. überlegen Sie sich also genau, in 
welches Bienennest Sie "hineinpoken". 


SYS 

Dieser Befehl ruft ein Maschinenprogramm oder eine 
Maschinenroutine auf- Interessant sind in diesem Zusammenhang die 
möglichenen Anwendungen des SYS-Befehls. So können Sie nicht nur 
Programme, durch Angabe der Startadresse starten, sondern auch 
noch Werte an das Maschinenprogramm übergeben. Denken wir zum 
Beispiel an ein Graphikprogramm, so könnte man sich vorstellen, 
eine Gerade durch Angabe von von Anfangs— und Endkoordiante zu 
zeichnen. Umgesetzt auf den SYS-Befehl könnte das so aussehen: 

SYS 6144,0,100 

Wir gehen hierbei davon aus, daß das Maschinenprogramm, bzw. die 
entsprechende Routine, an der Stelle 6144 (oder hex 1800) 
beginnt, die Startkoordiante O und die Endkoordinate 100 ist- Der 
Computer versteht zunächst nur die Startadresse des 
Maschinenprogramms. Die anderen Paramter, in unserem Fall also O 
und 100, werden in verschiedenen Registern bereit gestellt- Vom 
Programm aus können dann die verschiedenen Werte verarbeitet 
werden- An folgenden Adressen können Sie die Inhalte der Register 
finden: 
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Adresse 


Akku -für den SYS-Be-Fehl 
X-Register -für den SYS-Be-fehl 
Y-Register für den SYS-Befehl 
Status-Register für den SYS-Befehl 


780 


781 


782 


783 


Bei unserem obigen Beispiel, würde also an der Stelle 780 der 
Wert 0 und an der Stelle 781 der Wert 100 gespeichert. 

Auch dieser Befehl kann seine Tücken haben. Bo startet ein 


SYS 64802 


den VC—20 wieder — das Programm ist weg !!! 


USR 


Auch mit dieser Funktion können Sie ein Maschinenprogramm oder 
eine Maschinenroutine aufrufen. Sie müssen dabei aber ein paar 
Sachen berücksichtigen. Es gibt 2 besondere Adressen in der 
Zeropage des VC-20, die die Benutzung von USR steuern. Diese 
beiden Adressen sind die Speicherplätze 1 und 2. Diese beiden 
Stellen arbeiten zusammen mit der Adresse O. In dieser Adresse 
steht der Wert 76. Er bedeutet JMP (also springe) im Sinne der 
Maschinensprache. Danach folgt die Adresse, zu der gesprungen 
werden soll. Auch hier müssen wir also wieder in Low— und 
Highbyte trennen. Adresse 1 ist das Low- und Adresse 2 das 
Highbyte der Maschinenroutine, an die, bei Aufruf des USR- 
Befehls, verzweigt werden soll. Mit Hilfe des USR-Befehls ist es 
zum Beispiel möglich, eigene mathematische Routinen zu 
entwickeln, und dann den Wert oder die Werte berechenen zu 
lassen. Ein solcher Vorgang könnte zum Beispiel so aussehen: 

10 POKE 1,0: REM LSB 

20 PÜKE 2,24: REM MSB 
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30 A=10 
40 B=USR(A) 

50 PRINT "SQR VON '‘;A;'' IST "; B 
60 END 

ACHTUNG: Dieses Programm soll nur die Anwendung der USR—Funktion 

verdeutlichen. Das Programm ist so, wie es hier als reines BASIC- 
Programm steht, nicht lauffähig. Es wird davon ausgegangen, das 
ein Maschinenprogramm, welches die Wurzel einer Zahl berechnet, 
bei der Adresse 6144 (oder hex 1800) beginnt. In die 
Speicherstellen 1 und 2 werden also Low- (O) und Highbyte (24 = 
hex 18) geschrieben. Durch Aufruf der USR-Funktion verzweigt der 
Computer dann in das Maschinenprogramm und übergibt der Variablen 
B den Wert der Wurzel. 


WAIT 


Dies ist der letzte Befehl, auf den wir im Zusammenhang mit dem 
Aufruf von Maschinenprogrammen und Routinen hinweisen wollen. Er 
ist vielleicht nicht ganz so einfach zu verstehen, wie die 
anderen Befehle. Aber trotzdem kann er sehr nützlich sein. 

Mit Hilfe dieses Befehles kann der Zustand einer Speicherstel1e 
abgefragt werden. übersetzt würde der Befehl ungefähr bedeuten: 
Warte solange, bis an der Adresse X das Signal Y anliegt. Genauer 
gesagt: WAIT 654,1 wartet solange, bis die SHIFT-Taste gedrückt 
wird. Werden andere Zeichen eingegeben, werden diese zwar in den 
Tastaturpuffer übernommen aber nicht eher angezeigt, wie die 
SHIFT-Taste gedrückt wird. Der Grund dafür ist, daß diese Stelle 
normalerweise den Wert 0 enthält — solange die SHIFT-Taste nicht 
gedrückt ist. Wird diese Taste jedoch gedrückt, dann wird der 
Wert dieser Adresse zu 1, und damit die WAIT Schleife 
abgeschlossen. 


Sie müssen nicht alle Befehle des VC-20 genaustens beherrschen. 
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Es ist oftmals aber sehr nützlich, über Ihren Zi^eck informiert zu 
sein, um so zum Beipsiel leichter Programme von anderen Rechnern 
übertragen zu können. Um es noch einmal zu sagen: Seien Sie, 
solange Sie Ihren VC-20 nicht absolut kennen, vorsichtig im 
Umgang mit den oben angesprochenen Befehlen. Es könnte sonst zu 
unangenehmen Überraschungen kommen. 
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5-1 Routinen des Betriebssystems und ihre Anwendung 


Wie Sie oben sicherlich schon bemerkt haben, gibt es verschiedene 
Routinen, die bei der Programmierung, sowohl von BASIC als auch 
von der Maschinensprache sehr nützlich sein können- Wir wollen 
Ihnen hier einen Liste der wichtigsten Routinen geben- Für eine 
umfassende Auflistung aller Routinen, empfehlen wir Ihnen die 
Lektüre des VC-20 ROM-Listings. 

Hier nun die Adressen: 


Adresse: 


(mögliche) Anwendung: 


0000-0002 


X=PEEK(1)+256*PEEK(2) 


An dieser Stelle finden Sie die Adressen für die Anwendung der 
USR-RDutine. 0000 hat normalerweise den Wert 76, das der Opcode 
für JMP bedeutet- Adresse 0001 ist das Low- und Adresse 0002 das 
Highbyte der zu benutzenden USR-Routine. 


0020-0021 


X=PEEK(20)+256*PEEK(21) 


An dieser Stelle steht die Adresse, an der BASIC die Integer— 
Variablen speichert, die in dem BASIC-Programm benutz werden- 

0043-0044 X=PPEK(43)+256*PEEK(44) 


Diese Adresse zeigt auf den Anfang des Benutzerspeichers, also 
auf den Start des BASIC-Programms. Wie Sie diese Adresse 
auswerten können, haben wir Ihnen schon oben ausführlich 
beschrieben- 

0045-0046 X=PPEK(45)+256*PEEK(46) 

In dieser Adresse finden Sie den Start des Speicherplatzes, bei 
dem die numerischen Variablen beginnen- Dieser Adresse liegt für 
gewöhnlich direkt hinter dem BASIC-Programmspeieher- 
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0047-0048 


X=PEEK(47)+256*PEEK(48) 


Hier steht die Anfangsadressse -für den Array—Speicherplatz. Alle 
Felder (Arrays) des BASIC—Programms werden in diesem 
Speicherplatz abgelegt. 

0049-0050 X=PEEK(49)+256*PEEK(50) 

Diese Adresse deutet au-f das Ende des Array—Spei cherpl atzes. 

0051-0052 X =PEEK(51)+256*PEEK(52) 

Bei dieser Adresse beginnen die Strings, also Textvariablen, des 
BASIC-Programmes. 

0055-0056 X=PEEK(55)+256*PEEK(56) 


Zeiger auf das Ende des BASIC—RAMs- Durch Versetzen dieser 
Adresse, ist es möglich, einen bestimmten Speicherbereich vor 
überschreiben zu schützen- Da sich die anderen Adressen an dieser 
Adresse orientieren, können Sie einen ganzen Teil des Speichers 
"sperren". Dieser Teil könnte nun von einem Maschinenprogramm aus 
genutzt werden- Zum Beipiel die mathematische Routine für die 
USR-Funktion in unserem Beispiel- So könnte eine Sperrung 
erfolgen: 


Bei Standard VC-20; 

Adresse 55: Wert O 
Adresse 56: Wert 30 
FRE (0) : 3581 


Nach POKE 56,20: 

Adresse 55: Wert O 
Adresse 56: Wert 20 
FRE (0) : 1021 

RAM-Ende : 5120 


RAM-Ende : 7680 

0097-0102 X=PEEK(97), Y=PEEK(98) 
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Akkumulator 1 für Fließkommazahlen. (FAC) Die Adresse 102 stellt 
das Vorzeichen der entsprechenden Zahl dar. 

0105-0110 X=PEEK(105), Y=PEEK(106) ... 

Akkumualtor 2 Für Fliekommazahlen. (ARG) Die Adresse 110 stellt 
das Vorzeichen der entsprechenden Zahl dar. 

0115-0138 MASCHINENSPRACHE: JSR ^0073 

Eine sehr wichtige Routine. Sie holt das nächste Zeichen aus dem 
BASIC-Text. 

0122-0123 X=PEEK(122)+256*PEEK(123) 

Dieser Zeiger zeigt auf die aktuelle, zu verarbeitende, Zeile. 

0144 X=PEEK(144) 

Die Variable ST, also das Statuswort, ist hier gespeichert. Bei 
der Abfrage von ST wird der Wert von dieser Adresse aus gelesen. 

0152 X=PEEK(152) 

Die Anzahl der offenen Dateien ist an dieser Stelle abgelegt. 

0153 X=PEEK(153) 

Die lEC-Adresse für das aktuelle Eingabegerät. Normalerweise 

steht hier 0 — bedeutet Tastatur. 

0154 X=PEEK(154) 

Die lEC-Adresse für das aktuelle Ausgabegerät. Normalerweise 

steht hier 3 - bedeutet Bildschirm. 

0157 X=PEEK(157) 
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Im Direktmodus, also über Tastatur, steht an dieser Stelle der 
Wert 128- Bei Ablaut eines Programmes steht hier eine O. Es wird 
also signalisiert in welchem Modus sich der Computer gerade 
befindet. 

0160-0162 X=PEEK(160), Y=PEEK(161) ... 

An dieser Stelle werden die Zeitvariablen TI und TI$: abgelegt. 
Bei der BASIC-Abtrage dieser Variablen, holt sich der Computer 
die aktuelle Zeit aus diesen Adressen. 


0174-0175 X=PEEK(174)+256*PEEK(175) 


Diese Adresse zeigt auf das Programmende bei einem LOAD oder SAVE 
Befehl- Um also zum Beispiel die Länge eines Programmes nach dem 
Laden zu berechnen, müssen Sie nur die Differenz zwischen dem 
BASIC-Programmstart (43, 44) und dieser Adresse bilden. 

0183-0186 X=PEEK(183), Y=PEEK(184) ... 


In der ersten Speicherstel1e steht die Länge des Programmnamens, 
welches geladen oder gespeichert werden soll, und in der zweiten 
Adresse, die logische Filenummer. Die dritte Adresse beinhaltet 
dann noch die Sekundäradresse und die letzte die Berätenummer. 
Diese Adressen sind vor allen Dingen bei der 
Maschinenprogrammierung interessant, um ein Programm, oder Daten, 
zu laden oder zu speichern. 


0187-0188 


X=PEEK(187)+256*PEEK(188) 


Auch diese Adresse gehört zu einem 
Sie zeigt nämlich auf die Adresse, 
gespeichert ist. 


Lade- oder Spei eherVorgang. 
unter der der Programmname 


0197 


X=PEEK(197) 
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Eine sehr interessante Adresse tür das Einlesen von Zeichen über 
die Tastatur. In dieser Speicherstelle steht solange der Wert 64, 
bis eine Taste gedrückt wird. 

0198 X=PEEK(198) 

In dieser Speicherstel1e wird die momentane Länge des 
Tastaturpu-fters abgespeichert. 

0199 X=PEEK(199) 

Flagge ob RVS-Modus eingeschaltet ist oder nicht. Bei 
eingeschaltetem RVS-Modus ist das Resultat 1, bei ausgeschaltetem 
Modus 0. 

0201-0202 X=PEEK(201), Y=PEEK(202) 

In der Speicherstelle 201 ist die Cursorzeile und in 202 die 

Cursorspalte zwischengespeichert, an welcher die Eingabe er-folgen 
soll. Somit ist also auch au-f einfache Art und Weise eine 
Cursorpositionierung möglich. 

0206 X=PEEK(206) 

An diesere Stelle steht der Wert des Zeichens, das sich gerade 
unter dem Cursor befindet. 

0209-0210 X =PEEK(209)+256*PEEK(210) 

Dieser Zeiger weist auf den Start der aktuellen Bildschirmzeile. 

0211 X=PEEK(211) 

In dieser Speicherstel1e kann die momentane Position des Cursors 
innerhalb der Zeile ausgelesen werden. 

0213 X=PEEK(213) 
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Diese Adresse enthält die Anzahl der Bildschirmzeilen einer 
Zeile. Wie Sie wissen, kann die Eingabe einer Zeile ja insgesamt 
über maximal 4 Bildschirmzeilen erfolgen. In dieser Adresse 
können also die Werte 21, 43, 65 oder 87 stehen (0-21 ergibt 22 
Zeichen per Zeile). 

0214 X=PEEK:(214> 

Diese Adresse ähnelt sehr stark der Adresse 211, mit dem 
Unterschied, daß in dieser Speicherstelle die momentane 
Bildschirmzeilennummer testegehalten wird. 

Um den Cursor an eine bestimmte Postion zu setzen, müssen also 
insgesamt 4 Adressen, nämlich 201, 210, 211 und 214 verändert 
werden. 

0216 X=PEEK(216) 

Diese Adresse spielt bei der Verwendung des Insert—Modus eine 
große Rolle. Um zu verhindern, daß mehr als die erlaubten 88 
Zeichen eingegeben (eingetügt) werden, steht in dieser Adresse 
die restliche Anzahl der Zeichen, die noch eingetügt werden 
können. Bei einem POKE 216,0 wird der Insert—Modus ausgeschaltet. 

0217-0240 X=PEEK(217), Y=PEEK(218) ... 

Eine sehr interessante Adresse tür die Bearbeitung einer BASIC- 
Zeile (oder auch einer normalen Eingabe) ist der Bereich von 217 
bis 240. In diesem Bereich wird eine ganze Bildschirmzeile 
zwischengespeichert. Wie Sie teststellen, ist in diesem Bereich 
Platz tür insgesamt 23 Zeilen; 22 Zeichen sind aber nur erlaubt- 
Der Grund datür ist, daß das letzte Zeichen tür die Erkennung 
eines Zeilenendes benutzt wird. Ist dieses (23te) Zeichen 30, so 
bedeutet das, daß die Zeile tortgesetzt wird. 158 bedeutet 
dagegen, daß die Zeile nun zu Ende ist. 
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0243-0244 


X=PEEK(243)+256*PEEK(244) 


Dieser Zeiger deutet auf das Farb-RAM. 

0251-0254 

Diese Adressen sind eigentlich für den Maschinenprogrammierer 
interessant. Sie werden vom VC-20 nicht belegt, und sind somit 
frei für den Anwender verfügbar. Der große Vorteil der Zero-Page 
ist darin zu sehen, daß für die Abspeicherung von Werten (und 
natürlich auch beim Lesen dieser Adressen) wesentlich weniger 
Speicherplatz im Anwenderprogramm benötigt wird. Erinnern wir 
uns: Die Adressen 0-255 werden hexadezimal dargestellt als 00-FF. 
Alle andern Zahlen gehen von 0100-FFFF. Wenn ich jetzt in die 
Zero-Page schreiben will, so genügt zum Beispiel ein STA ^FB - 
also ein 2-Byte Befehl. Bei anderen Adressen müßte ich dagegen 
sagen: STA $1800 - also 3 Bytes. Das klingt wenig. Kann aber 

trotzdem bei größeren Maschinenprogrammen von enormem Vorteil 
sein — außerdem geht's so wesentlich schneller. 

0512-0600 X=PEEK(512), Y=PEEK(513) ... 

Dieser große Bereich dient als Eingabepuffer vom BASIC aus- Geben 
Sie also eine Zeile ein, wird diese im Gesamten hier 
zwischengespeichert- 

0631-0640 X=PEEK(631), Y=PEEK(632) ... 

Haben Sie sich nicht schon oft gewundert, warum verschiedene 
Programme, die von Kassette geladen werden, automatisch starten ? 
Der Grund für dieses "Phänomen" ist in diesen Adressen zu suchen. 
Sie enthalten den Tastaturpuffer. Jede Eingabe eines Zeichens, 
daß Sie über die Tastatur aus eingeben, wird an dieser Stelle 
gespeichert. Ist der Platz belegt, werden die Zeichen in den 
Eingabepuffer übertragen, und es können weitere Zeichen 
eingegeben werden- Diese Übertragung geschieht so schnell, daß 
Sie dieses gar nicht bemerken. Der Trick des Autostartes ist nun 
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ein-fach der, daß diese Adressen nicht von der Tastatur aus 
ge-füllt werden, sondern vom Programm. Es werden also die normalen 
Befehle (z.B. RUN) in diese Speicherstelle geschrieben, und durch 
das Zeichen 13 (für RETURN) aus gestartet. Dazu muß nur noch die 
Adresse 198 geändert werden (s.o.). 

0641-0642 X=PEEK(641)+256*PEEK(642) 


Diese Adresse zeigt auf den Start des Speichers. 

0643-0644 X=PEEK(643)+256*PEEK(644) 

Diese Adresse zeigt auf das Ende des Speichers. 

0646 X=PEEK(646) 

In dieser Adresse wird der momentan benutzte Färb—Code für die 
Zeichenfarbe gespeichert. 

0648 X=PEEK(648) 

Um festzustellen, bei welcher Adresse der Video—RAM beginnt, 
können Sie diese Adresse lesen. Da das Low-Byte immer gleich ist, 
braucht hier nur das High-Byte angesprochen zu werden. 

0649 X=PEEK(649) 

Diese Adresse steuert die Länge des Tastatutpuffers- 
Normalerweise ist die Länge dieses Puffers mit 10 angesetzt 

(siehe Adressen 631 bis 640). Diese Länge können Sie nun für 
eigene Zwecke verkürzen. Eine Erweiterung kann verschiedene 
andere Adressen zerstören. 

0650 X=PEEK(650) 

Wie Sie wissen, sind nicht alle Tastaten "wiederholungsfähig"- 
Das heißt, daß bei längerem Drücken der einzelnen Taste, das 
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Zeichen nicht wiederholt wird (wie zum Beispiel die Pfeil- 
Tasten). Durch Veränderung des Wertes von 0 auf 128 werden nicht 
nur die Cursor Steuer-Funktionen, sondern auch alle anderen 
Tasten wiederholt. 

0651 X=PEEK(651) 


Durch Veränderung dieser Adresse können Sie den Zeitfaktor, nach 
dem die Wiederholung des Zeichens beginnt (s. o.), verändern. 
Dadurch können Sie verhindern, daß bei einer unbeabsichtigten 
Verzögerung des Tastendrucks, das Zeichen nicht einfach 
wiederholt wird — der Zeitfaktor wird also länger eingestellt, 
□der aber Sie wollen, daß die Wiederholung des Zeichens schon 
früher einsetzt — der Zeitfaktor wird also verkürzt. Sie müssen 
etwas experimentiern, um die beste Zeitverzögerung zu erreichen. 

0653 X=PEEK:(653) 

Mit dieser Adresse können Sie die SHIFT und CTRL- Taste sperren. 
Das kann vorteilhaft sein,' um zu verhindern, daß der Anwender bei 
verschiedenen Programmen flasche Eingabe macht. Wenn Sie also 
Ihre Programme vervollkommnen wollen, so sind es gerade diese 
Feinheiten, die den "Normalprogrammierer" vom "Experten" 
unterscheiden. 

0654 X=PEEK(654) 

Mit dieser Adresse können Sie den Zustand der SHIFT-Taste 
abfragen. 

0657 X=PEEK(657) 

Wenn Sie bei der Adresse 653 die Tasten SHIFT und CTRL steuern 
können, so besteht nun die Möglichkeit die SHIFT und C= Tasten zu 
sperren. Damit können Sie verhindern, daß bei der Benutzung eines 
Programmes, unbeabsichtigt vom Groß/Klein— in Groß/Graphik—Modus 
geschaltet werden kann. 
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0768-0769 


X=PEEK(768)+256*PEEK(769) 


Diese Adresse zeigt auf die Fehlertabelle des VC-20. Wenn Sie 
also nun deutsche Fehlermeldungen wollen, so müssen Sie diese nur 
an einen bestimmten Speicherplatz schreiben (schützen nicht 
vergessen!) und diese Adresse verändern. Natürlich müssen die 
Fehlercodes übereinstimmen. Das heißt, das der Fehler mit dem 
Code X auch nach der Umsetzung zum Fehlercode x gehört. 


0828-1019 


X=PEEK(828), Y=PEEK(829) 


In diesem Speicherbereich befindet sich der Puffer des 
Kassettenrecorders. Alle Informationen, die von der Kassette 
geladen werden, werden also hier abgespeichert- Wenn Sie nicht 
mit der Kassette arbeiten wollen, so können Sie diesen 
Speicherplatz für Maschinenprogramme nutzen. Sobald Sie aber Aus¬ 
oder Eingaben über den Kassettenrecorder amchen, wird der ganze 
Bereich überschrieben- 
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5.2 KERNAL 


Einführung 

über diesen besonderen Teil des VC—20 Betriebssystems wird von 
allen Seiten viel zu wenig berichtet — wo er doch einer der 
wichtigsten und interessantesten Teile des ganzen RÜMs darstellt. 
Wir wollen an dieser Stelle nun ausführlich die Anwendung des 
Kernais und seinen eigentlichen Zweck beschreiben. 

Kernal - Was ist das ? 

Um es kurz zu sagen: Kernal ist eine sogeanannte "Sprungtabelle" 
für verschiedene Funktionen des VC—20 Betriebssystems. Es handelt 
sich hierbei um Ein— und Ausgaberoutinen, und um die Routinen zur 
Speicherverwaltung des VC-20. 

Würde nun, aus irgendwelchen Gründen, das VC-20 Betriebssystem 
verändert, und sei es nur um ein Byte, kann es natürlich 
passieren, daß Ihre Maschinenprogramme nicht mehr ordnungsgemäß 
ablaufen — sofern Sie sich direkt auf Routinen ausserhalb des 
Kernais beziehen. Dagegen bleiben die Sprungadressen im VC—20 
Kernal unverändert. Wenn Sie also zum Beispiel die Routine BSÜUT 
aufrufen wollen, die ein Zeichen aus dem Akku an das 
angeschlossene Ausgabegerät sendet, so können Sie direkt sagen: 

JMP ^:FFD2 oder von BASIC SYS 65490 

An der Stelle 65490 steht nun normalerweise ein Sprung zu der 
Adresse, die unter 806 bis 807 gespeichert ist. An dieser Stelle 
befindet sich der Output-Vektor. Würde die Firma nun Änderungen 
an dieser Adressierung unternehmen, so ist es für Sie 
uninteressant, ob die Adresse 65490 an die Adresse 806,807 
verweist oder an irgendeine andere Stelle. Denn Sie brauchen nur 
die Kernal Routine aufzurufen — der Rest geschieht automatisch. 
Selbst das Kernal könnte geändert werden — nur die 
Einsprungadressen dürfen nicht geändert werden- Deren Wert spielt 
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dagegen gar keine Rolle. 


Es werden vom Kernal insgesamt 39 Routinen, wie sie oben 
besprochen wurden unterstützt. Wenn Sie diese Routinen anstelle 
der direkten Sprünge in die Routine anwenden, werden Sie keine 
Schwierigkeiten mit der Umsetzung auf einen anderen Rechner mehr 
haben und dabei noch sehr viel Zeit sparen. Außerdem ist dieses 
Programm dann auch für denjenigen, der es nicht kennt, viel 
einfacher zu "lesen" und gegebenenfalls zu ändern. 

Um die verschiedenen Funktionen anwenden zu können, müssen Sie 
sich an ein paar Regeln halten. Zunächst müssen Sie die 
verschiedenen Register mit den benötigten Parametern laden und 
dann die Funktion aufrufen. Beachten müssen Sie dabei allerdings, 
daß einige Register bei dem Durchlauf des Betriebssystems 
verändert. Bevor Sie also die Kernal-Routine aufrufen, sollten 
Sie sich sicher sein, daß nicht unbeabsichtigt verschiedene 
Register, die Sie in Ihrem Programm benötigen, zerstört werden. 
Wir wollen Ihnen in diesem Kapitel ausführlich die Anwendung der 
Kernal—Routinen aufzeigen. Anwenden müssen Sie diese dann selber. 

Jede Kernal-Routine hat verschiedene Teile. Auf diese Teile 
wollen wir nun etwas genauer eingehen, da wir sie in unserer 
Beschreibung jeder einzelnen Kernal-Routine noch benötigen 
werden. Sollten Sie sich nicht genau an diese "Benutzeranleitung" 
der Kernal-Routinen halten, kann es recht leicht passieren, daß 
Ihr Programm diesen Aufruf nicht "überlebt". 

1. ) Der Name der Funktion 

Dieser Name spielt eigentlich in der Anwendung dieser Routinen 
keine größere Rolle. Wir haben aber versucht, durch leicht 
verständliche Namen (z.B. LISTEN, BASIN, BSOUT etc.) auch eine 
einprägsame Anwendung zu ermöglichen. 

2. ) Die Einsprungadresse der Funktion 

Ein sehr wichtige Teil innerhalb der Kernal-Funktion ist 
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natürlich die Einsprungadresse. Wie wir oben schon aufgezeigt 
haben, ist es später unerheblich, auf welche Adresse die Routine 
verweist. Wichtig ist nur diese Einsprungadresse zu kennen. 

3. ) Die Übergaberegister an die Funktion 

Wir müssen der Kernal-Routine mitteilen was wir eigentlich 
wollen. Also zum Beispiel welchen Kanal wir öfnnen wollen, oder 
aber welches Zeichen wir senden wollen. Für diese Mitteilungen 
stehen uns die verschiedenen Register zur Verfügung (Akku, X— 
Register, Y-Register, Status, Programmzähler, Stack Pointer). 

4. ) Kernal—Routinen, die vor dieser Routine aufgerufen werden 
müssen 

Einige Kernal-Routinen benötigen Daten, die in anderen Routinen 
erarbeitet bzw. umgewandelt werden. Zu diesem Zweck führen wir 
hier auch noch diese Routinen auf, die vor der eigentlichen 
Kernal-Routine aufgerufen werden müssen. 

5. ) Die Rückgabe von Fehlermeldungen ans Maschinenprogramm 

Trifft die Kernal während der Verarbeitung auf einen Fehler, so 
wird dies dem Maschinenprogramm, aus dem sie aufgerufen wurde 
gemeldet. Zu diesem Zweck wird zunächst das Carry-Flag gesetzt, 
das nach jedem Kernal—Aufruf überprüft werden sollte (z.B. BCS, 
BCC). Sollte ein Fehler aufgetreten sein, so steht im Akku sein 
Wert. Darauf kommen wir später noch. Mit Hife dieser Routine, 
kann man verhindern, daß das System irgendwelche seltsame Wege 
geht, ohne daß der Anwender darauf eingehen kann. 

6. ) Wieviel Stack-Platz wird benötigt ? 

Die nächste wichtige Information, ist die Tiefe des Stacks, der 
von der Kernal-Routine benötigt wird. Diese Information benötigen 
um nach Aufruf der Routine, wieder an die Daten zu kommen, 
die Sie vorher in den Stack geschrieben haben. 
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7.) Von der Kernal-Routine benutzte Register 


Intern benötigt die Kernal-Routine natürlich auch noch 
verschiedene Register. Diese Register werden hier angeführt, 
damit Sie sehen, welche Register vor Aufruf der Routine auf den 
Stapel bringen sollten, damit diese nicht überschrieben werden. 

Kernal dient aber nicht nur dem Programmierer zum Aufruf 
verschiedener Betriebssystem-Routinen. Es überwacht bei Start des 
Systems noch einige andere Aufgaben. 

Zunächst ist da die Abfrage, ob ein Modul verwendet wird. Haben 
Sie also vor Einschalten des VC-20 ein ROM-Modul eingeschoben, so 
erkennt Kernal dieses und gibt die Steuerung des VC-20 an dieses 
Modul ab. Daher ist es auch wichtig, das Modul vor Einschalten 
einzustecken, da sonst nicht nur der VC-20 oder das Modul 
beschädigt werden können, sondern auch das Vorhandensein eines 
Moduls gar nicht erkannt wird- Liegt nach Einschalten kein Modul 
vor, so geht Kernal zum nächsten Schritt. 

Bei diesem Schritt überprüft und initialisiert Kernal den 
Speicher des VC-20. Hierbei werden zuerst die Speicherbereiche 
von O bis 255 und von 512 bis 1023 gelöscht und der 
Kassettenpuffer nach 828 geigt. Somit ist dieser Bereich des 
Systems "startklar". Danach wird der gesamte RAM—Bereich 
beginnend bei 1024 getestet. Kernal sucht nun den Anfang des RAM— 
Bereiches, bei dem mit der Programmierung begonnen werden kann. 
Ist diese Adresse größer als 4096 (1024 bis 4095 ist der Platz 
für die 3K Erweiterung und 4096 das erste Byte des normalen RAM- 
Bereichs), so bedeutet das, daß das System nicht einwandfrei 
arbeitet (keine 3K Erweiterung und kein normaler RAM-Bereich). 
Aus diesem Grund wird nach einem fehlerhaften Test ein recht 
eigenartiger Bildschirm angezeigt. An für sich brauchen Sie sich 
nicht vor einem solchen Fehler fürchten, da die RAM-Bausteine 
sehr zuverlässig sind. Sollte aber trotzdem irgendwann mal ein 
solcher Fehler auftreten, so wissen Sie nun, um was es sich 
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handelt. 


Nach diesem ersten Speichertest, bei dem der Anfang des RAMs 
gesucht wurde, geht Kernal nun auf die Suche nach dem Ende des 
RAM-Bereichs. Sollte dieses Ende kleiner als 8192 sein (bis dahin 
reicht der Bildschirmspeicher), so bedeutet das, daß dieser 
Speicherbereich fehlerhaft ist, und der VC-20 antwortet wie oben 
beschrieben. 

Danach folgt ein weiterer, wichtiger Schritt. Wie Sie sicherlich 
wissen, verändert sich ja bei Speichererweiterung teilweise auch 
der Bildschirmspeicher- Wenn das RAM-Ende größer als 8448 ist, 
dann ist der Start des Bildschirmspeichers bei 4096, der 
Spei eheranfang liegt bei 4608 und reicht bis zum errechneten RAM- 
Ende. Sollte das Ende des RAMs jedoch kleiner als 8448 sein, so 
liegt der Bildschirmspeicher bei 7680 und das Ende des RAMs liegt 
ebenfalls bei 7680. Nun können Sie auch erkennen, warum 
eigenartuge Zeichen auf dem Bildschirm erscheinen, wenn Sie 
versuchen ein Programm zu laden, das nicht in den vorhandenen 
Speicherplatz paßt. 

Zum Schluß werden noch alle anderen Vektoren gesetzt, die die 
Ein- Ausgabesteuerung übernehmen, die Sprungtabelle von 788 bis 
819 wird gebildet, die oben schon angesprochene CHRGET Routine 
wird abgespeichert und die erste Bildschirmmeldung ausgegeben: 

*** CBM BASIV V2 *** 

3583 BYTES FREE 

READY. 

Nun ist Ihr VC-20 bereit Ihre Befehle entgegenzunehmen. Hätten 
Sie gedacht, daß schon, bevor Sie nur ein Zeichen auf dem 
Bildschirm zu sehen ist, mit dem VC-20 so viel passiert ? Wir 
hoffen, daß Ihen nun einige Zusammenhänge, von denen man bisher 
keine Ahnung hatte klarer geworden sind, und Sie Ihren VC-20 nun 
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besser "verstehen". 


Au-f den nächsten Seiten wollen wir nun im einzelnen auf die 
Routinen des Kernal eingehen- Es emphiehlt sich in dem 
Zusammenhang mit dem VC-20 ROM-Listing zusammen zu arbeiten, 
damit wirklich alle Zusammenhänge, zwischen Aufruf der Kernal- 
Routine und deren Ausführung, klar werden. 


Funktion: 

INPUT 

Einsprung: 

$FFA5 65445 

übergabereg.: 

Akku 

Routinen: 

TALK, SATALK 

Fehler: 

s. STATUS 

Stacktiefe: 

13 

Register: 

Akku, X-Register 

Diese Kernal- 

-Funktion holt Daten vom Seriellen Bus (lEC-Bus). 


Diese Daten können entweder von der Floppy, dem Kassettenrecorder 
oder einem anderen angeschlossenen lEC-Gerät. Diese Daten werden 
dann in den Akkumulator geschrieben, von wo sie aus dem 
Maschinenprogramm entnommen werden können. Bevor diese Routine 
aufgerufen werden kann, ist darauf zu achten, daß mit Hilfe der 
TALK-Routine erst der entsprechende Kanal für den Datentransfer 
geöffnet wurde. Falls das angeschlossene Gerät eine zweite 
Adresse benötigt, so muß auch noch die BATALK-Routine aufgerufen 
werden. Falls während dem Datentransfer ein Fehler aufgetreten 
ist, so kann der mit Hilfe der STATUS-Funktion ausgewertet 
werden. 


Bei spiel: 

JSR ^FFA5 

STA ^1800,X 

Funktion: 

CHKIN 

Einsprung: 

$FFC6 65478 

übergabereg.: 

X-Register 

Routinen: 

□PEN 

Fehler: 

3,5,6 

Stacktiefe: 

- 
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Register: Akku, X-Register 


Um aus einer Datei Informationen zu lesen, muß diese Datei zum 
Lesen geöffnet werden- Diese Aufgabe übernimmt dieses Register. 
Dabei muß die Datei zwar schon mit Hilfe der ÜPEN-Routine 
geöffnet sein, sie erhält aber durch die CHKIN die Anweisung zum 
Lesen. Dieses öffnen entfällt dann, wenn von der Tastatur aus 
gelesen werden soll. Ansosnsten gibt das X-Register die logische 
Filenummer an- 


Beispiel: 


Funktion: 
Einsprung: 
übergabereg. : 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


LDX #$02 
JSR $FFC6 

CHKOUT 

$FFC9 65481 

X-Register 

□PEN 

3,5,7 

Akku, X-Register 


Diese Routine hat den umgekehrten Zweck der CHKIN. Nachdem die 
Datei geöffnet wurde (nicht nötig bei Ausgabe auf Bildschirm), 
kann Sie zum Schreiben vorbereitet werden. Auch hier enthält das 
X-Register die logische Filenummer. 


Bei spiel: 


LDX #$03 
JSR $FFC9 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


BAS IN 

$FFCF 65487 

Akku 

□PEN, CHKIN 
s. STATUS 

Akku, X-Register 
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Mit dieser Routine können Sie über den mit den Kernal—Routine 
CHKIN und der ÜPEN-Routine geöffneten Datenleitung, Daten in den 
VC-20 Einlesen. So können zum Beispiel auch längere Text von 
Tastatur aus eingelesen werden, genau so wie Daten von Band oder 
Floppy- Beim Einlesen von Tastatur, werden die Zeichen einzelnen 
in den Input-Puffer geschrieben, von wo sie danach weiter 
verarbeitet werden können. 


Bei spiel: 


JSR ^FFCF 
STA ^1800,X 


Funktion: 
Einsprung: 
übergabereg-: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


BSÜUT 

$FFD2 65490 

Akku 

□PEN, CHKÜUT 
s. STATUS 


Diese Funktion arbeitet im Prinzip genau so, wie 
Routine, mit dem Unterschied, daß die Zeichen nicht 
sondern ausgegeben werden. Dazu muß wieder die Datei geöffnet 
werden (entfällt bei Bildschirmausgabe) und zum Schreiben 
vorbereitet werden. Sie müssen aber darauf achten, daß nur die 
Dateien geöffnet sind, auf die der Text, oder 
ausgegeben werden sollen. Denn die BSOUT-Routine 
alle offene Dateien - also aufgepaßt ! 


die BASIN- 
eingelesen 


die Zeichen, 
schreibt auf 


Beispiel: 

LDX 

#$04 

;Druckerkanal 


JSR 

$FFC9 

;öffnen 


LDA 

#$41 

; 'A' 


JSR 

$FFD2 

;ausgeben 

Funktion: 

OUTPUT 



Einsprung: 

$FFA8 

65448 



übergabereg-: Akku 

Routinen: LISTEN, SALISTEN 
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s. STATUS 


Fehler: 

Stacktiefe. 
Register. Akku 


Diese Routine schickt ein Zeichen an den lEC-Bus. Dieser Bus muß 
zuvor mit der LISTEN-Funktion, und eventuell, falls eine 
Sekundäradresse angegeben werden muß, noch durch die SALISTEN- 
Funktion bezeichnet werden. Danach kann Zeichen für Zeichen über 
den seriellen Bus geschickt werden. 


Bei spiel: 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 

Fehl er: 
Stacktiefe; 
Register: 


LDA #$41 
JSR $FFA8 

CLALL 

$FFE7 65511 


11 

Akku, X-Register 


; 'A' 

;senden 


Diese Routine schließt alle offenen Dateien, und modifiziert die 
entsprechenden Vektoren. 


Beispiel: JSR $FFE7 

Funktion: CLOSE 

Einsprung: $FFC3 65475 

übergabereg.: Akku 

Routinen: - 

Fehler: - 

Stacktiefe: - 

Register: Akku, X-Register 


Mit Hilfe 
schließen, 
Akku steht 


dieser Routine können Sie einzelne, logische Dateien 
die vorher mit der ÜPEN-Routine geöffnet wurden. Im 
die Adresse der zu schließenden Datei. 


112 


Bei spiel: 


LDA #^04 ;CLÜSE 4 

JSR ^FFC3 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 

Fehl er: 

Stacktiefe: 

Register: 


CLRCH 

^FFCC 65484 


9 

Akku, X-Register 


Diese Routine schließt alle offenen Kanal 
Beispiel nach einem Lesen von Diskette oder 
sein. Ansonsten würden die nächsten 
angeschlossenen und geöffneten Kanäle wirken 
nicht tatsächlich beabsichtigt, die Floppy al 


e. Diese 
Kassette 
Befehle 
— und wer 
s Drucker 


kann zum 
nützlich 
auf alle 
will, wenn 
benutzen ? 


Bei spiel: 
Funktion: 

Einsprung: 
übergabereg. : 
Routinen; 
Fehler: 
Stacktiefe: 
Register: 


JSR ^FFCC 

GETIN 

$FFE4 65512 

Akku 


Akku, X-Register 


Diese Routine ließt ein Zeichen vom Tastaturpuffer 
von dort) und speichert seinen ASCII-Wert im Akku. 
Zeichen im Puffer gewesen sein, so ist der Wert des 


(entfernt ihn 
Sollte kein 
Akkus O. 


Bei spiel: 


Al JSR $FFE4 ;warte bis eine Teste gedrückt 

CMP #$00 
BEQ Al 


Funktion: lOBASE 

Einsprung: $FFF3 65523 
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X-Register, Y-Register 


übergabereg.: 

X-Register, Y-Register 

Routinen: 

- 


Fehl er: 


Stacktiefe: 

2 

Register: 

X-Register, Y-Register 


Diese Routine dient hauptsächlich dazu, die Programme von anderen 
CBM—Programmen (VIC) auch nach einer Änderung diverser Adressen, 
anwenden zu können. Wie Sie ja vielleicht wissen, ist es möglich, 
Programme von größeren Commodore Geräten aut dem VC-20 zu laden. 
BASIC Programme können so nicht nur gelistet, sondern auch 
verändert und nach den notwendigen Änderungen sogar gestartet 
werden. Bei den großen CBM ist das leider nicht so einfach 


möglich. Ihnen 

fehlt diese Routine. 

Beispiel: 

JSR $FFF3 

STX ^1800 

STY 2^1801 

Funktion: 

LISTEN 

Einsprung: 

$FFB1 65457 

übergabereg. : 

Akku 

Routinen: 

- 

Fehler: 

s. STATUS 


Stacktiete: 


Register: 

Akku 


Mit dieser Routine können Sie ein angeschlossenes lEC-Gerät 
zwischen 4 und 31 öffnen, damit von diesem Gerät Daten übertragen 
werden können. Der entsprechende Wert <4—31) muß natürlich vorher 
in den Akku gebracht werden- 


Beispiel: 

LDA #$08 

JSR $FFB1 

Funktion: 

LOAD 

Einsprung: 

$FFD5 65493 
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Y-Register 


übergabereg-: 
Routinen: 

Fehl er: 

Stacktiefe: 

Register: 


Akku, X-Register, 

SETFLS, SETNAM 
O, 4, 5, 8, 9 

Akku, X-Register, Y-Register 


Diese Routine lädt Daten von einem beliebigen Eingabegerät (z.B. 
Floppy oder Kassette) direkt in den Speicher. Die Information des 
Akku besagt, ob geladen (LOAD) oder verglichen (VERIFY) werden 
soll. Im ersten Fall hat der Akku den Wert O, im zweiten Fall den 
Wert ein- Soll der Vorspann nicht mitgeslen werden, um zum 
Beispiel das Programm (Maschinenprogramm) an eine bestimmte 
Stelle zu Laden, so müssen im X- und Y-Register die 
Anfangsadresse des Programms stehen- 


Beispiel: 


^1800: 


LDA 

#<f08 

;LADE PROGRAMM VON DISK 

LDX 

#$=01 


LDY 

#^01 


JSR 

^FFBA 


LDA 

#<:04 

;LÄNGE DES NAMENS 

LDX 

#^00 


LDY 

#^18 


JSR 

^FFBD 


LDA 

#C00 

;00 BEDEUTET LADEN 

LDX 

#^FF 


LDY 

#^FF 


JSR 

$FFD5 


STX 

VARTAB 


STY 

VARTAB+1 


JMP 

STAR 


-BYT 

'TEST' 



Funktion: 
Einsprung: 
übergabereg-: 
Routinen: 
Fehler: 


MEMBÜT 

:^FF9C 65436 

X-Register, Y-Register 
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Stackti e-f e: 

- 

Register: 

X-Register, Y-Register 


Diese Routine kann entweder den Start des Speichers anzeigen oder 
verändern- Um zu wählen, ob gelesen oder geschrieben werden soll, 
dient bei dieser Funktion das übertrag (Carry) Bit- Ist dieses 
Bit gesetzt, so bedeutet das, daß der Start nur gelesen, ein 
gesetztes Bit bedeutet, daß der Start geschrieben werden soll. 


Bei spiel: 

SEC ;übertrag setzen 

JSR ^FF9C 

Funktion: 

MEMTOP 

Einsprung: 

^FF99 65433 

übergabereg. : 

; X-Register, Y-Register 

Routinen: 

- 


Fehler: 


Stacktie-f e: 

2 

Register: 

X-Register, Y-Register 


Durch diese Routine können Sie das Ende des Speichers lesen oder 
schrieben- Genau wie ber der MEMBOT—Routine, so zeigt auch hier 
das Übertrag-Bit an ob gelesen oder geschrieben werden soll. 


Bei spiel: 

CLC ;übertrag löschen 

JSR ^FF99 

Funktion: 

□PEN 

Einsprung: 

$FFCO 65472 

übergabereg. : 

: - 

Routinen: 

SETLFS, SETNAM 

Fehler: 

1, 2, 4, 5, 6 

Stacktiefe: 

- 

Register: 

Akku, X-Register, Y-Register 

Diese Kernal- 

-Routine öffnet eine logische Datei. Somit kann diese 


Datei -für Ein- Ausgabeanweisungen benutzt werden. Die Routinen 
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SETFLS und SETNAM müssen vorher aufgerufen werden. 


Bei spiel: 


JSR ^FFCO 


Funktion: 

Einsprung: 

übergabereg. 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


PLÜT 

iTFFFO 65520 

Akku, X-Register, Y-Register 


Akku, X-Register, Y-Register 


Mit Hilfe dieser Routine, können Sie den Cursor an eine bestimmte 
Bildschirmposition setzen- Diese Position setzt entweder den 
Cursor an die Bildschirmposition, die durch die X- und Y-Register 
gekennzeichnet ist, indem das Übertrag-Bit gelöscht ist, oder man 
lädt die beiden Register mit der Position, auf der der Cursor zur 
Zeit des Aufrufs steht - dann muß das Übertrag-Bit gesetzt sein. 


Bespiel: 


LDX 

LDY 

CLC 

JSR 


#irOA 

#$02 


$FFF0 


;Cursor nach 10,2 


Funktion: 

Einsprung: 

übergabereg-: 

Routinen: 

Fehler: 

Stacktiefe: 

Register: 


RDTIM 

$FFDE 


65502 


Akku, X-Register, Y-Register 


Akku, X-Register, Y-Register 


Diese Routine ließt die Zeit der eingebautet System—Uhr - Die Zeit 
wird entsprechend in den 3 Registern abgespeichert- Von dort kann 
Sie an eine bestimmte Speicherstelle abgelegt werden- 


Beispiel: 


JSR $FFDE 
STY $1800 
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STX $1801 

STY $1802 

Funktion: STATUS 

Einsprung: $FFB7 65463 

übergabereg-: Akku 

Routinen: — 

Fehler: -■ 

Stacktiefe: 2 

Register: Akku 

Mit dieser Routine können Sie den Status der Ein— Ausgabegeräte 
abfragen. Es wird entweder der Status des Gerätes oder aber der 
Fehler ausgegeben. 

Folgende Werte sind möglich; 


ST Bit 

ST Wert 

Kassette lesen 

Seriell lesen / Schribon 

0 

01 


Time out 

1 

02 


•• 

2 

04 

Kurzer Block 


3 

08 

Langer Block 


4 

16 

Lese-Fehler 


5 

32 

Pr Qf summen-Feh1er 


6 

64 

EOF 

EÜI 

7 

128 

EÜT 

Device not present 


Funktion: 
Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


RESTÜR 

$FF8A 


65415 


Akku, X-Register, Y-Register 


Durch Anwendung dieser Routine können Sie wieder alle Vektoren 
auf ihren alten Zustand (nach dem Start) zurückführen- 
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Bei spiel: 


JSR ^FFSA 


Funktion: 

Einsprung: 
übergabereg. : 
Routinen: 
Fehler: 
Stackti e-f e: 
Register: 


SAVE 

^FFDS 65496 

Akku, X—Register, Y—Register 

SETLFS, SETNAM 

5, 8, 9 

Akku, X-Register, Y-Register 


Ähnlich der LOAD Routine, so arbeitet auch diese SAVE Routine. 
Der Unterschied besteht darin, daß ein bestimmter Speicherbereich 
au-F Kassette oder Diskette abgespeichert wird. Dazu wird die 
An-f angsadresse des Programms in der Zero-Page 
zwischengespeichert, die X- und Y-Register mit dieser Adresse 
geladen und dann die Routine au-fgerufen. 


Funktion: SCNKEY 

Einsprung; $:FF9F 65439 

übergabereg.: — 

Routinen: - 

Fehler: — 

Stacktie-fe: - 

Register: Akku, X-Register, Y-Register 


Diese Routine überprü-ft den Zustand der Tastatur danch, ob eine 
Taste gedrückt ist. 


Bei spiel: 


JSR 

^FF9F 


JSR 

^FFE4 


CMP 

#^00 

;keine Taste gedrückt 

BEQ 

Al 


JSR 

^FFD2 

;gebe Zeichen aus 


SCREEN 

^FFED 65517 

X-Register, Y-Register 


Funktion; 
Einsprung: 
übergabereg.: 
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Routinen: - 

Fehler: — 

Stacktie-fe: 2 

Register: X-Register, Y-Register 


Diese Routine dient hauptsächlich der Aufwärtskompatibilität- Sie 
stellt das Bildschirmformat fest. Beim VC-20 ist dies ja 
bekanntlich 22 (X-Register) und 23 (Y-Register). So können Sie 
zum Beispiel bei einem Maschinenprogramm feststellen, ob ein 40 
Zeichen Bildschirm (z.B. CBM A4) vorliegt. 

Beispiel: JSR ^FFED 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 

Fehl er: 

Stacktiefe: 

Register: 


SECOND 
^FF93 
Akku 
LISTEN 
s. STATUS 

Akku 


65427 


Diese Routine übergibt bei Bedarf die Sekundär—Adresse an das 
Ein— Ausgabegerät- Diese Adresse muß vor Aufruf dieser Routine in 
den Akku geladen werden. Natürlich muß mit LISTEN das Gerät, an 
welches die Sekundär—Adresse geschickt werden soll, erst dem 
Computer zugewiesen werden. 


LDA 

#^04 

JSR 

$FFB1 

LDA 

#^01 

ORA 

#^60 

JSR 

$FF93 


Funktion: SETLFS 

Einsprung: $^FFBA 65466 

übergabereg-: Akku, X-Register, Y-Register 

Routinen: - 
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Fehler: 


Stacktiefe: 

2 

Register: 

- 


Diese Routine verwaltet die logische Dateinummer (Akku), die 
Geräteadresse (X-Register) und die Sekundäradresse (Y-Register) 
-für die anderen Kernal-Routinen. 

Geräteadressen können sein: 


Adresse 

Gerät 

0 

Tastatur 

1 

Kassettenrecorder 

2 

RS-232C Gerät 

3 

Bi 1dschirm 

4 

Drucker 

B 

Diskettengerät (seriell) 

Beispiel: 

LDA #iroi 

LDX #$08 

LDY #$01 

JSR $FFBA 

Funktion: 

SETMSG 

Einsprung: 

$FF90 65424 

übergabereg. i 

: Akku 


Routinen: 


Fehler: 

- 

Stacktiefe: 

2 

Register: 

Akku 

Mit dieser 

Routine können Sie die Ausgabe von Fehler- oder 


Kontrol 1 mel düngen steuern. Bit 6 und 7 steuern die Herkun-Ft der 
Meldung. Ist Bit 7 gesetz, wird eine Fehlermeldung aus dem Kernal 
gesendet. Wenn Bit 6 gesetzt ist, wird eine einfache Meldung 


ausgegeben. 


Bei spiel: 

LDA #$80 ;Fehlermeldüng 
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JSR ^FF90 


Funktion: 
Einsprung: 
übergabereg. : 
Routinen: 
Fehler: 
Stacktiete: 
Register; 


SETNAM 

^FFBD 65469 

Akku, X-Register, Y-Register 


Diese Kernal-Routine steuert die Dateinamen zum Laden oder 
Speichern au-f Kassette oder Diskette. Im Akku steht die Länge des 
Programmnamens, im X-Register das Low-Byte und im Y-Register das 
High-Byte der Adresse, bei der der Programmname abgespeichert 
ist. 


Bei spiel: 

LDA 

#^04 

;Länge des Namens (z.B. TEST) 


LDX 

#$:00 

;ab Adresse $1800 


LDY 

#^18 



JSR 

^FFBD 


Funktion: 

SETTIM 



Einsprung: 

^:FFDB 

65499 



übergabereg.: Akku, X-Register, Y-Register 

Routinen: - 

Fehler: — 

Stacktie-fe: 2 

Register: - 


Mit dieser Routine kann die System-Uhr gesteuert werden. Die Zeit 
wird in -folgender Form berechnet: Alle 1/60 Sek. wir die Uhr au-f 
den neuen Stand gebracht. Das ergibt in 24 Stunden 5.184.000 
Takte. Um nun die genau Zeit einzugeben, muß der Akku mit dem 
ersten High—Byte, das X-Register mit dem zweiten High-Byte und 
das Y-Register mit dem Low-Byte der Zeit geladen werden. 

Beispiel: LDA #2^00 ; 00; 01:00 


122 


LDX #^00 
LDY #^3C 
JSR ^FFDB 


Funktion: SETTMO 

Einsprung: ^:FFA2 

übergabereg-: Akku 

Routinen: — 

Fehler: - 

Stacktiete: 2 

Register: - 


65442 


Time-out's sind eine wichtige "Einrichtung" bei dem Datentransfer 
über den seriellen Bus. Durch Setzen oder Löschen von Bit 7 ist 
es möglich Time-out ein- (Bit 7=0) oder auszuschalten (Bit 7 = 
1 ) . 


Bei spiel: 


LDA #^00 ;einschalten des Time-out's 

JSR ^FFA2 


Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 

Fehl er: 

Stacktiefe: 

Register: 


STOP 

^FFEl 65505 

Akku 


Akku, X-Register 


Mit Hilfe dieser Kernal—Routine, können Sie jede einzelne Taste 
abfragen. Ist die STOP-Taste des VC—20 gedrückt, so wird die 


Null-Flagge gesetzt. Ansonsten 
letzten Tastatur—Abfrage. 


Bei spiel: 

JSR 

^FFEl 


BNE 

WEITER 


JMP 

STGP 


enthält der Akku den Wert der 


;STÜP-Taste nicht gedrückt 
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Funktion: 

Einsprung; 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register; 


TALK 

^FFB4 65460 

Akku 

s. STATUS 

Akku 


Mit Hilfe dieser Routine können Sie, das mit dem Inhalt des Akkus 
angesprochene Gerät, zum Senden öffnen. Der Inhalt des Akku kann 
im Bereich von 4 bis 30 liegen. 


Bei spiel: 

Funktion: 

Einsprung: 
übergabereg.: 
Routinen: 
Fehler: 
Stacktiefe: 
Register: 


LDA #^04 
JSR $FFB4 

SATALK 

$FF96 65430 

Akku 

TALK 

s. STATUS 

Akku 


Wenn das unter TALK angesprochene Gerät zusätzlich noch eine 
Sekundär-Adresse benötigt, so kann diese mit dieser Kernal- 
Routine übergeben werden. Diese Adresse wird durch den Akku dem 
Gerät übergeben — der Wert darf hiebei zwischen 4 und 31 liegen. 


Bei spiel: 

LDA 

#$04 


JSR 

$FFB4 


LDA 

#$04 


JSR 

$FF96 

Funktion: 

UDTIM 


Einsprung: 

^FFEA 

65514 


übergabereg.: 
Routinen: 
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Fehler: 
Stacktiefe: 
Register: 


2 

Akku, X-Register 


Diese Routine wird normalerweise vom Kernal-Interrupt automatisch 
aufgeru-fen. Nur wenn der Benutzer eine eigene Interruptsteuerung 
verwendet, muß diese Funktion aufgerufen werden. 


Bei spiel: 

JSR $:FFEA 

Funktion: 

UNLSN 

Einsprung: 

$FFAE 65454 

übergabereg.: 

- 

Routinen: 

- 

Fehler: 

s. STATUS 


Stacktiefe: 


Register: 

Akku 


Durch diese Routine werden alle Geräte angewiesen, ihren 
Datenempfang vom VC-20 abzubrechen. Natürlich werden nur Geräte 
angesprochen, die vorher mit der LISTEN-Routine geöffnet wurden. 


Beispiel: 

JSR ^FFAE 

Funktion: 

UNTLK 

Ei nsprung: 

$FFAB 65451 

übergabereg.: 

1 - 

Routinen: 

- 

Fehler: 

s. STATUS 


Stacktiefe: 


Register: 

Akku 


So wie die UNLSN Routine alle LISTEN—Geräte zurücksetzt, so 
werden alle durch TALK angesprochenen Geräte angewiesen, ihre 
Übertragung zu stoppen. 

Beispiel: JSR $FFAB 
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VECTÜR 


Funktion: 

Einsprung: ^FFBD 65412 

übergabereg.: X-Register, Y-Register 

Routinen: — 

Fehler: - 

Stacktie-fe: 2 

Register: Akku, X-Register, Y-Register 

Mit Hilfe dieser Routine können Sie die Sprungtabelle in den 
Speicher übertragen und von dort wieder in den Speicherbereich 
zurückschreiben. So ist es Ihnen leicht möglich, die Tabelle zu 
modifizieren, ohne die Modifikationen direkt an den (sehr 
wichtigen) Normal werten im Speicher machen zu müssen. Wenn das 
Übertrag-Bit gesetzt ist, dann wird die Sprungtabelle an die 
Adresse übertragen, die durch das X- und Y-Register angegeben 
ist. Ist das Übertrag-Bit gelöscht, so wird die Tabelle vom 


Benutzerspei eher 

wieder an 

den alten Speicherplatz 

zurückgeschrieben. 




Bei spiel: 

LDX 

#^00 



LDY 

#$18 



SEC 


;lade Sprungtabelle in RAM 


JSR 

$FF8D 



Fehlerkennziffern 

Bei der Benutzung der Kernal—Routinen können verschiedene Fehler 
auftreten. Sollte dieses geschehen, wird das Übertrag-Bit gesetzt 
und der Akku enthält die Kennziffer des Fehlers. 

Wir haben Ihnen hier die vollständige Tabelle aller 
Fehlerkennziffern aufgeführt- 

Kennziffer Bedeutung 


0 Abbruch durch Drücken der STÜP-Taste 

1 Zu viele offene Dateien 
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2 


3 

4 

5 

6 

7 

8 
9 

Wenn 

haben 

gerne 


Datei bereits geö-f-fnet 
Datei noch nicht geöffnet 
Datei nicht gefunden 
Gerät nicht bereit 

Datei ist nicht zur Eingabe geöffnet 
Datei ist nicht zur Ausgabe geöffnet 
Name der Datei nicht vorhanden 
Unzulässige Gerätenummer 


Sie zu diesem recht schwierigen Thema noch weitere 
können Sie sich gerne an uns wenden. Wir stehen 
mit Rat und Tat zur Verfügung. 


Fragen 

Ihnen 
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.3 Der SYS-Be+ehl beim VC-20 


Der SYS-Be-fehl dient zum Autru-f von Maschinenprogrammen von einem 
BASIC-Programm aus. Das Maschinenprogramm wird wie ein 
BASIC-Unterprogramm (GÜSUB. .. RETURN) ausge+iihrt. Nach der 
Aus-fuhrung wird die Kontrolle wieder an das BASIC-Programm 
zurückgegeben. Maschinenprogramme wird man hauptsächlich dann 
einsetzen, wenn es au-f Geschwindigkeit ankommt oder wenn Aufgaben 
auszuführen sind, die sich mit BASIC nur schwer oder umständlich 
lösen lassen. Ein typischer Anwendungsfall wäre z.B. eine 
Sortierroutine. In BASIC dauert das Sortieren von 100 
Stringvariablen (z.B. einer Adressdatei) über eine Minute; ein 
entsprechendes Maschinenprogramm braucht dazu noch nicht einmal 
eine Sekunde. Dies sind Anwendungen für selbst geschriebene 
Maschinenprogramme. Aber auch ßetriebssystemroutinen des OC-20 
lassen sich nutzbringend anwenden. Hier bietet der SYS-Befehl des 
VC-20 zusätzlich noch die Möglichkeit, Parameter an das 
Maschinenprogramm zu übergeben und Ergebnise zurück zu bekommen. 

Vier Speicherzellen des VC—20 sind für die ParameterÜbergabe zum 
und vom SYS-Befehl vorhahden. Diese Parameter werden direkt an die 
Register des Mikroprozessors 6502 übergeben. In Adresse 780 muß 
dann der Inhalt des Akkumulators stehen (das Universalregister des 
6502), in Adresse 781 und 782 stehen X— und Y—Register (die 
Indexregister) und in Adresse 783 wird das Statusregister (die 
Flags) übergeben. Beim Rücksprung vom Maschinenprogramm werden in 
diesen Adressen die Registerinhalte wieder für BASIC zur Verfügung 
gestel1t. 

Ein Beispiel soll eine mögliche Anwendung demonstrieren. 

Das BASIC des VC-20 besitzt keine Möglichkeit zur direkten 
Cusroradressierung. Wollen Sie zum Beispiel einen Text in Zeile 15 
ab Spalte 9 ausgeben, so müssen den Cursor durch Ausgabe von 
Cursor Home, 15 mal Cursor down und neunmal Cursor right auf diese 
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Position bringen, ehe Sie den Text dort ausgeben können- Dies ist 
nicht nur spei cherpl atzau-f wendi g, sondern zudem auch noch langsam. 
Das Betriebssystem hat da-für jedoch schon eine Routine zur 
Ver-rügung. Diese Routine dient sowohl zum Setzen des Cursors als 
auch zum Holen der Cursorposition. Das Carry-flag (Bit O des 
Statusregisters) des Prozessors dient dabei zur Unterscheidung: 
gelöschtes Carry bedeutet Cursor setzen, gesetztes Carry-flag heißt 
Cursorposition holen. Die Cursorposition wird dabei im X-Register 
(Cursorzeile) und im Y-Register (Cursorspalte) übergeben. 

Damit können wir jetzt auch von BASIC aus den Cursor direkt an 
jede beliebige Position des Bildschirms setzen- 

100 REM CURSOR POSITIONIEREN 

110 CU = 65520 : REM ADRESSE DER ROUTINE 

120 ZE = 781 : REM CURSORZEILE IM X-REGISTER ÜBERGEBEN 

130 SP = 782 : REM CURSORSPALTE IM Y-REGISTER 

140 SE = 783 : REM STATUSREGISTER 

200 INPUT "ZEILE, SPALTE"; Z,S 

210 POKE ZE,Z: POKE SP,S: POKE SE,0 : REM CARRYFLAG LÖSCHEN 
220 SYS CU : REM CURSOR SETZEN 

230 PRINT "TEXT"; ; REM TEXT WIRD AB DER CURSORPOSITION AUSGEGEBEN 
240 GOTO 200 

Mit dieser kleinen Routine können Sie also den Cursor ohne 
umständliche Stringmanipulationen an jeden beliebigen Punkt des 
Bildschirms setzen- 

Die Routine kann ebenso zur Ermittlung der augenblicklichen 
Cursorposition dienen. Wenn Sie die Zeilen 100 bis 140 des obigen 
Programms übernehmen, sähe die Ab-frage der Cursorposition so aus: 

200 POKE SE,1 ; REM CARRYFLAG SETZEN 
210 SYS CU : REM POSITION HOLEN 
220 Z=PEEK(ZE): S=PEEK(SP) 

230 PRINT "CURSOR STAND IN ZEILE";Z;"SPALTE";S 
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5.4 Speicherung vom Maschinenprogrammen beim VC-20 


Will man -für den VC—20 eigene Maschinenprogramme schreiben, so 
stellt sich immer die Frage, wo man solche Programme abspeichern 
kann, damit sie nicht durch Betriebssystem oder BASIC 
überschrieben werden. Sie man sich die Speicherbelegung des VC-20 
einmal an, so gibt es da-für mehrere Möglichkeiten. 

Unbenutzte Bereiche des Betriebssystems. 

Hier bietet sich in erster Linie der Pu-f-fer -für Bandein- und 
ausgabe an. Er belegt den Adressberei ch 828 bis 1019 ($^0338 bis 
^03FB) . Diese 192 Bytes sind der ideale Platz -für kleinere 
Maschinenprogramme. Aus der Nutzung als Bandpu-f-fer ergibt sich 
jedoch schon eine Einschränkung: Man kann Maschinenprogramme aus 
diesem Bereich nicht au-f Kassette abspeichern, da sie dabei mit 
dem Filenamen überschrieben werden. Abspeichern und Laden von 
Diskette ist dagegen ohne weiteres möglich. Ein weiterer 
ungenutzter Bereich liegt von Adresse 680 bis 767 (^02A8 bis 
$02FF) Dieser Bereich von 88 Bytes unterliegt keinen 
Einschränkungen und kann für kleine Maschinenprogramme genutzt 
werden; ein Abspeichern auf Kassette ist ohne weiteres möglich. 
Hat man längere Maschinenprogramme, muß man sich nach einem 
anderen Bereich umsehen. Hat man eine 8K-RAM-Erweiterung im 
Bereich von 40960 bis 49151 ($A000 - $:BFFF) , so dürfte dies auch 
für längste Maschinenprogramme ausreichen. 

Ansonsten besteht noch die Möglichkeit, den Bereich für 
BASIC-Programme einzuschränken und bestimmte Bereiche für 
Maschinenprogramme zu reservieren. Hier kann man nun entweder den 
BASIC-Start nach oben verlegen oder das BASIC-Ende nach unten 
legen. Wie macht man das nun ? 

Dazu existieren zwei Zeiger, die jeweils auf BASIC-Start und 
BASIC-Ende zeigen. Die Inhalte dieser Zeiger sind abhängig von der 
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jeweiligen Spei eher kon-f i gurati on und können von Ihnen manipuliert 
werden. 

Dazu sehen wir uns einmal an, welche Werte die Zeiger enthalten: 

PRINT PEEK(43) + 256*PEEK(44) 

PRINT PEEK(55) -»■ 256*PEEK(56) 

Der erste Wert ist der BASIC—Start, der zweite gibt das BASIC—Ende 
an. In der Grundversion würden Sie zum Beispiel 

4097 und 
7680 

erhalten. 

Wollen wir nun Platz -für ein 300—Byte—Maschinenprogramm scha-f-fen, 
so können wir die 300 Byte entweder oben oder unten vom BASIC 
abzweigen. 

Wir wollen jetzt das BASIC—Ende um 300 Bytes nach unten legen. 
Dazu müssen wir von dem oben erhaltenen Wert (7380) 300 abziehen — 
es ergibt sich 7380- Diesen Wert müssen wir nun in den Zeiger 
55/56 schreiben. Dies geschieht -folgendermaßen: 

Der Wert muß in High- und Low-Byte zerlegt werden, was so 
aussieht: 

PÜKE 55, 7380 AND 255 
PÜKE 56, 7380 / 256 

Jetzt müssen wir noch den CLR—Be-fehl eingeben, um die anderen 
BASIC-Zeiger entsprechend zu setzen. Wenn Sie jetzt 

PRINT FRE(O) 

eingeben, werden 300 Byte weniger ausgewiesen. Ihr 

Maschinenprogramm kann jetzt von Adresse 7380 bis 7679 stehen und 
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kann von BASIC nicht mehr erreicht werden. 

Die zweite Alternative ist das Höherlegen des BASIC-Starts. Hier 
können wir ähnlich vergehen wie oben. 

Wir addieren jetzt zur Startadresse 4097 unsere 300 und setzen die 
Zeiger neu. 


POKE 43, 4397 AND 255 
POKE 44, 4397 / 256 

Zusätzlich muß hier noch an die neue Startadresse minus 1 eine 
Null geschrieben werden. 

POKE 4397-1,0 


Die anderen Zeiger müssen mit NEW zurückgesetzt werden. 

Jezt kann man das Maschinenprogramm eingeben oder auch von 
Kassette oder Diskette laden. Beim Laden von Maschinenprogrammen 
ist noch zu beachten, daß die Sekundäradresse 1 angegeben wird, da 
das Programm sonst an den BASIC-Start geladen wird. 


LOAD "MASCHINENPRG", 1,1 : REM KASSETTE 
LOAD "MASCHINENPRG", 8,1 : REM DISKETTE 
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Was die haus kann, kann der Joystick schon lange 


Eine interessante Amwendung -für den Joystick ist z.ß. eine 
komplette Menusteuerung au-F dem Bildschirm. Durch Bewegen des 
Joysticks kann der Anwender im -folgenden Programm von Feld zu Feld 
wandern und durch Drucken des Feuerknop+s die entsprechende 
Funktion aus!Ösen. 


10 rem Initialisierung 
20 cu=65520 ; rem Cursor setzen 
30 ze=781: sp=7a2: se=783 


40 z=l: s=l 

50 dd=37154: p1=37151: o2=37152: gosublOOO 

60 rem cusor au-f mittleres teld 

70 poke ze,3 : poke sd, 0: poke 5e,0: sys cu 

90 rem hauptsch 1 ei-fe 

100 poke dd,127: pa=peek(p2/ 

110 poke dd,254: pb=peek(pl) 

120 i-f(pb and 4 ) =0thengosub200 : rem oben 

130 i-f(pb and 8 ) =0thengosub300 : rem unten 

140 i-f(pb and 16 ) =0thengo5ub400 : rem links 

150 i-f <pa and 128) =0thengosub500 : rem rechts 

160 i-f (pb and 32 ) =0then600 : rem knop-f 

170 prinf'i " ; : pokeze , 4*z-»-5: pokesp , 7*s-+-4: pokese, O: syscu 

180 print goto 100 

190 rem bewegen des Cursors 

200 i-f z >0 then z=z-l 

210 return 

300 i-f z<2 then z=z-*-l 
310 return 

400 i-f s>0 then s=s—1 
410 return 

500 i-f s-s2 then s=s+l 
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510 return 

590 rem aktion bei -feuerknop-f 

600 pokeze,16 : pake sp,2 :poke se,0 : sys cu 
610 print "-feld ";2*3+s+l : end 
990 rem -Felder zeichnen 

1000 print"j-1-1-1 " 

1010 print"! I | 1" 

1020 print"! • I" 

1030 print"h j - ( - 1" 

1040 print"! ' ' !" 

1050 print"! * I I" 

1060 print"! * |" 

1070 print"f-!-J-!" 

1080 print"! ! ! I" 

1090 print"! I I 1" 

1100 print"! • I !" 

1110 print"!-!-!_!" 

1120 return 

Mit unserem obigen Beispielprogramm simulieren Sie etwas, was in 
den USA z.B. mit dem neuen Apple LISA derzeit als das Nonplusultra 
angeboten wird: die Maus. In unserem Programm wird wieder die 
Cursorsteuerung über SYS-Betehl genutzt. Anstelle der Ausgabe der 
Feldnummer in Zeile 610 können Sie dann Ihre gewünschten Aktionen 
programmieren. 
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5.6 Hardcopy +ür den VC-20 

Das -folgende kleine Programm erlaubt es Ihnen, jederzeit den 
Bi i dschirminhal t Ihres VC—20 au-f einen angeschlossenen Drucker zu 
übertragen. Das kann z.B. beliebiger Text oder eine 
Bildschirmmaske sein. Auch Gra-f i kzei chen werden au-f den Drucker 
gebracht. Um die Routine so kurz wie möglich zu halten, wurde 
-folgende Syntax gewählt: 

Sie ö-f-fnen zuerst mit der logischen Filenummer eins (im Programm 
mit 1-f bezeichnet) eine Datei au-f Ihrem Drucker, normalerweise mit 
OPEN 1,4. Dann kann mit SYS 688 eine Hardcopy zum Drucker 
geschickt werden. Anschließend wird der Druckkkanal wie üblich mit 
CLOSE 1 geschlossen. 


130: 

02b 0 




if 

= • 

1 

; loqische filenummer 

140; 

02b 0 




er 

= 

13 

; carriaqe return 

170: 

02b0 




temp 

= 

$71 

; zeiger fuer ausgabe 

IBO; 

02b 0 




chkout 

= 

$f f c9 

; ausgabe auf drucker 

190: 

02b 0 




bsout 

= 

$ff d2 

; Zeichen drucken 

200; 

02b0 




stop 

= 

$f fei 

; stootaste abfragen 

210: 

02b0 




Store 

= 

$67 


220; 

02b0 




dreh 

= 

$f f ec 

: ausgabe wieder auf bildschirm 

300: 

02b0 





# = 

688 

; Startadresse 

350: 

02b0 

a9 

00 



Ida 

#0 


360: 

02b2 

aO 

le 



1 d V 

#$le 

; adresse des bildschirm $le00 









; in der grundversion 

370; 

02b4 

85 

71 



sta 

temp 


380; 

02b6 

84 

72 



stv 

temp-H 

; zeiger auf bi1dschirmsoeieher 

420: 

02b8 

a6 

01 



Idx 

If 


430; 

02 ba 

20 

c9 

ff 


jsr 

chkout 

; ausgabe auf drucker 

440; 

02bd 

a2 

17 



1 dx 

#23 

; anzahl der zeiien 

450: 

02bf 

a9 

Od 


1 OOP 

1 da 

#cr 


460; 

02c 1 

20 

d2 

ff 


jsr 

bsout 

: neue zeile 

470: 

02c4 

20 

e 1 

ff 


)sr 

stop 


480; 

02c7 

fO 

2e 



beq 

ex 1 1 

; stootaste gedruckt ? 
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4V0; 

02c9 

aO 

yo 



i d V 

#0 


500: 

02cb 

bl 

71 


1 odd2 

1 da 

(t emo).V 

: Zeichen vom bildschirm holen 

510; 

02cd 

85 

6 7 



5 t d 

Store 


520: 

02cf 

29 

3 t 



and 

#$3t 


530: 

02dl 

06 

67 



asi 

Store 


540; 

02 d 3 

24 

67 



bl t 

störe ; 

b 1 1dschirmcode in ascci-code 

550; 

02d5 

10 

02 



bol 

* + 4 ; 

wandeln 

5o0: 

02d7 

09 

60 



ora 

#$80 


570; 

02d9 

70 

02 



bvs 

* + 4 


580; 

02db 

09 

40 



ora 

#$40 


590; 

02da 

20 

d2 

+ t 


.IST 

bsout : 

und auspeben 

600: 

02e0 

c8 




1 n V 

; 

soaltenzah 1 er erhöhen 

610; 

02e 1 

cO 

16 



CDV 

#22 : 

schon letzte soalte ? 

620: 

02e3 

dO 

et» 



bne 

i ood2 


650; 

02e5 

98 




tva 



640: 

02e6 

18 




clc 



650: 

02e7 

65 

71 



ade 

temo 


660: 

02e9 

65 

71 



sta 

temo ; 

zeiqer aut nächste zeile 

670: 

02eb 

90 

02 



bcc 

* + 4 


ö 80 : 

02ed 

e6 

72 



1 nc 

temo+l 


690: 

02e4 

ca 




de:< 


schon alle zeiien ? 

700; 

02 t 0 

dO 

cd 



bne 

1 OOD 


710: 

02f 2 

a9 

Od 



1 da 

#cr ; 

neue zeile 

720: 

02 t 4 

20 

d2 

tt 


jsr 

bsout 


730; 

02t 7 

4c 

cc 

tt 

exi t 

jmp 

dreh ; 

auspabe wieder aut bildschirm 


1 36 


5-7 Doppelt hohe Zeichendarstellung 


Mit dem folgenden Programm wird eine doppelt hohe Darstellung von 
Zeichen auf dem Bildschirm erreicht- Doch geben Sie zuerst einmal 
folgenden Befehl ein : Poke 36867,47- Sie sind jetzt sicher über¬ 
rascht, doch keine Sorge-Es handelt sich hier um einen Darstellu— 
ngsmodus,in dem die Zeichen übereinander gezeigt werden- Wenn Sie 
nun eine Taste betätigen,werden Sie bemerken, daß der gedrückte 
Buchstabe nicht auf dem Bildschirm erscheint, sondern immer zwei 
Buchstaben untereinander die nicht zusammengehören. In dem folge 
nden Programm werden wir nun alle Zeichen richtig und auch dop 
pelt hoch darstellen- Dieses Programm ist nur für die Grundve 
rsion des VC-20 gedacht- Wenn Sie diese Programm auf einem 
ausgebauten VC—20 laufen lassen wollen, müssen Sie die Anweisung 
in Zeile 20 entsprechend der Adresse der Erweiterung ändern- 

Bitte geben Sie das Programm sehr gewissenhaft ein, denn oft sind 
nicht laufende Programme eine Folge fehlerhafter Eingaben- Schon 
eine falsche Zahl in einem POKE-Befehl zum Beispiel kann zum 
Ansprechen eines falscher Speicherzelle und damit zu einem völlig 
unbeabsichigten Resultat führen- Doch nun geben Sie bitte das 
folgende Programm ein und warten nach der Eingabe einen Moment!I 

10 POKE 56,24: POKE 52,24:CLR 
20 CH=32768 

30 FOR X=6144 TO 7147 STEP 2 

40 POKE X,PEEK (CH): POKE X+1,PEEK (CH) 

50 CH=CH+1 : NEXT 
55 POKE 36865,21 
60 POKE 36879,25 
70 POKE 36869,254 
80 POKE 36867,33 
90 PRINT '• (CLR/HOME) " 

So, was sagen Sie dazu. Hätten Sie gedacht, daß Ihr VC—20 in der 
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Lage ist, solche Sachen zu können ? Doch nun noch einmal zu dem 
Proramm- In Zeile 10 wird dem Computer gesagt, an das Ende des 
Speichers zu gehen- In den Zeilen 20—50 wird der Zeichensatz aus 
dem ROM in den RAM geladen- Die Zeile äO verän dert den 
Bildschirm- Wie Sie sehen ist es gar nicht so schwer, mit dem 
VC-20 solche Manipulationen zu machen. 


, 5.8 Wie kommen die BITS au-f das Band 7 

Das von Commodore verwendete Verfahren zur Kassettenaufzeichnung 
ist PPM, in Neudeutsch PULSE POSITION MODULATION (was ist den 
das??)- Der Commodore-Rechner schreibt die Digitalsignale direkt, 
also nicht in Form zweier Tonfrequenzen, auf das Band. Hierbei 
sind 3 verschiedene Zeiten definiert: K = kurz (176 

Mikrosekunden), M = mittel (256 Mikrosekunden), L = lang (336 
Mikrosekunden)- Daraus werden 3 verschiedene Kombinationen 
gebildet, die die folgende Bedeutung haben: LLMM = BYTE; dieser 
Kombination geht jedem BYTE MMKK = 1, KKMM = O voraus- 

Das heißt, daß zum Beispiel der Buchstabe "A" auf dem Band wie 
folgt gespeichert wird: 


LLMM MMKK KKMM KKMM KKMM KKMM KKMM MMKK KKMM MMKK 

BYTE 100000101 

BIT NR-0 1 2 3 4 5 6 7 PARITY ODD 

Dies ergibt eine Zeitspanne von 8-96 ms für ein Zeichen- 
Files werden wie folgt abgespeichert: 

Programmfiles Datenfiles 

Programmkopf Filekopf 
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(Fi1ename) 


(Start und Endadresse 
Fi1ename) 

Programmkopf (Wiederholung) 
Programm (ein Block) 
Programm (Wiederholung) 
Programmfi1 es 
Endblock 


Filekop-f (Wiederholung) 
Datenblock 

Datenblock (Wiederholung) 

Datenfiles 

Endblock 


Der KopF ist wie -Folgt auf gebaut: 


Startadresse 

00 00 

Endadresse 

00 00 

Filename (16 Zeichen) 

Filename (16 Zeichen) 

Füllzeichen 

Füllzeichen 


Ein Block besteht aus: 

ca-2 sek- Vorspann 

9 BYTES Count Down (^89 ^88 -- ^81) beim ersten Block 
($09 $08 -. $01) bei Wiederholung 

Daten (bei Datenfiles 192 BYTES bei Programmen) 


Prüfsumme EXÜR-Prüfsumme über die gesamten Daten 


Endmarkierung (LLKKKKKKKKKKKKKKKKKKKK) 


Nachspann O-16 ms- 

Wichtig ist in diesem Zusammenhang auch, daß das 
Aufzeichnungsverfahren für alle Commodore—Rechner gleich ist- 
Abgesehen von bestimmten programmtechnischen Unterschieden lassen 
sich so Bänder zwischen den Commodore Computern der 
unterschiedlichsten Baureihen austauschen- 
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5-9 Daten speichern mit der Datasette 


Wenn Sie nun schon ein -fortgeschrittener Programmierer sind, wer 
den Sie sicher den Wunsch haben auch Daten au-f Band zu schreiben 
oder Daten zu lesen- Wir wollen dies nun an -folgendem Beispiel 
durchgehen- Bitte vergessen Sie nicht, daß Daten nicht wie ein 
Programm eingelesen werden können, sondern immer nur in 
Verbindung mit einem Hauptprogramm- 

□pen A,B,C, "Name" 

Hier wird nun ein logisches File geöf-fnet, wobei der Name das 
File identitiziert- 

Die verwendeten Variablen (A,B,C) bedeuten: 

A Sucht die Hauptnummer von 1 bis 255. Wenn Ihr Programm mehr 
als ein File braucht, muß jedes File seine eigene Nummer 
haben. 

B Ist die Adresse der Datasette (=1) 

C Hier wird -festgelegt, ob von der Datasette gelesen oder 
geschrieben wird. 

Wenn C=0 wird von der Cassette gelesen. 

Wenn C=1 oder 2 wird auf das Band geschrieben- 


1. Daten auf Band schreiben 


10 OPEN 1,1,1, "TEST DATEN" 
20 FÜR 1=1 Tü 10 
30 PRINT # 1,1 
40 NEXT 
50 CLÜSE 1 
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Dieses Programm erö-f-fnet unter der logischen # 1 ein Datei mit 
dem Namen "TEST DATEN". Es ermöglichte Ihnen au-F das Band zu 
schreiben. Es werden die Daten eingelesen, danach wird die Datei 
wieder geschlossen. 

2- Lesen von Daten mit GET-Anweisungen (Einzelne Zeichen) 

10 OPEN 1,1,0, "TEST DATEN" 

20 GET #1, 

30 IF ST AND 64 THEN GOTO 60 
40 PRINT D^ 

50 GOTO 20 
60 PRINT D^ 

70 CLOSE 1 

Dieses Programm liest Daten vom Band. Es werden nur einzelne 
Daten eingelesen. Die Anweisung in Zeile 30 sagt dem Rechner 
solange Daten anzunehmen bis keine Daten mehr zur Verfügung 
stehen. Diese Programm ist sehr sinnvoll für diejenigen, die nur 
Zahlen einiesen wollen, also zum Beispiel bei einer 
Kontenabrechnung. 


3. Lesen von Daten mit INPUT-Anweisungen (Mehrere Zeichen) 

10 OPEN 1,1,0, "TEST FILE" 

20 INPUT #1, D^ 

30 IF ST AND 64 THEN GaT060 
40 PRINT D^ 

50 GOTO 20 
60 PRINT D^ 

70 CLÜSE 1 

Mit diesem Programm können Sie Sätze oder ähnliches einiesen, 
also sehr wichtig bei einer Textverarbeitung oder dergleichen Die 
Funktion des Programmes ist die gleiche, wie es bei der GET— 
Anweisung beschrieben wurde. 
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5-10 Steuerung der Datasette per Programm 


Bei dieser Gelegenheit möchten wir nicht vergessen, daß Sie 
natürlich auch die Möglichkeit haben, während des normalen 
Programmablaufes den Datenrecorder anlaufen zu lassen. Dies kann 
ganz besonders dann wichtig sein, wenn Sie zu Beispiel ein 
Programm geschrieben haben, und im Anschluß daran ein neues 
Programm geladen werden soll. Dieses kann nötig sein, wenn Sie zu 
Ihrem Programm eine Einleitung machen wollen und in Anschluß 
daran das Hauptprogramm geladen werden soll. Das folgende 
Programm prüft zunächst, ob eine Bandtaste gedrückt ist. 

(Achtung; der VC-20 kann zwar prüfen, ob eine Taste gedrückt 
wurde, aber nicht, welche Taste) 

10 A=9*4096+256+15+16 

20 IF PEEK (A) AND 64 THEN 50 

30 PRINT "BITTE BANDTASTE DRÜCKEN" 

40 IF PEEK(A) AND 64 = 0 THEN 40 
50 X 

Für das in Zeile 50 stehende X geben Sie bitte einen der 
folgenden PÜKES ein, je nachdem, welchen Sie benötigen. 


Einschalten des Recorders : POKE 37148,252 
Ausschalten des Recorders : PÜKE 37148,254 


So nutzen Sie den Joystick in Ihren Programmen 

Der Joystick wird beim VC—20 an einem neunpoligen Sockel 
angesch1ossen. 
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1 


2 3 4 5 


0 0 0 0 0 


0 0 0 0 

6 7 8 9 

An den Anschlüssen 1-4 sind die Leitungen der zwei Ein/Ausgabe- 
Bausteine (6522) angeschlossen. Es folgt nun eine Tabelle, aus 
der Sie die Bedeutung der einzelnen Pinne ersehen können. Bitte 
schalten Sie Ihren VC-20 aus bevor Sie an dem Anschluß arbeiten, 
ein Kurzschluß hätte fatale Folgen, denn der VC-20 ist ein 
hochtechnisches Gerät. 

Dies sind die Anschlüsse am Controller—Port und ihre Bedeutung : 


II I 
I PIN I SCHALTERBEZ. JÜYS.I 
I I I 


I I 

III = JOY O 

I I 


II I 

I 2 I = JOY 1 I 

II I 


I 

I 

I 


II I 

I 3 I = JOY 2 I 

II I 


II I 

I 4 I = JOY 3 I 

II I 
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I I I 

I 5 I = LEER I 

I I I 


I I I 

I 6 I = SCHUßKNOPF I 

I I I 


I I I 

I 7 I = LEER I 

I I 


I I I 

I 8 I = MASSE I 

I I I 


Die zwei 6522 VIA-Bausteine haben zwei Ein/Ausgabe Tore. Jedes 
Tor (Tor A, Tor B ) kann unter Zuhilfenahme eines Datenrichtungs¬ 
registers als Eingabe- oder Ausgabeport geschaltet werden. Gleich 
nachdem Sie den Rechner einschalten, sind alle Portleitungen als 
Eingänge geschaltet. Der Feuerknöpf und die Schalter 0,1,2 werden 
über die VIA #1 gelesen. Der Schalter 3 über die VIA #2- 

Die beiden Adressen der Tore sind: 

VIA #1 = :^9110 HEX = 37136 DEZ- 
VIA #2 = ^9120 HEX = 37152 DEZ. 

Wenn Sie nun die folgenden Zeilen eingeben, werden Sie auf Ihrem 
Bildschirm den positiven bzw. negativen Wert jeder 
Joystickstellung angezeigt bekommen. 

10 DIM JS (2,2) :PÜKE 37154,O:PA=37137:PB=37152 
15 DD=37154 
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20 FÜRI= 0TÜ2 : FÜRJ= =TÜ2: READJS (J,I):NEXTJ,I 
30 DATA -23,-22,-21,-1,0,1,21,22,23 
40 GÜSUB 9000 :PRINT JS(X+l,Y+1):GÜTÜ40 
9000 POKREDD,127:S3=-((PEEK < PB)AND128)=0):POKEDD,255 
9010 P=PEEK(PA):Sl=-((PAND8)=0):82=((PAND16)=0 
9015 S0=((PAND4)=0) 

9020 FR=-((PAND32)=0):X=S2+S3:Y=S0+S1:RETURN 


Wenn Sie die Zeilen 20 bis 580 in das obenstehende Programm 
ein-fügen, werden Sie jedesmal wenn Sie den Feuerknop-f drücken, 
einen Ton aus Ihrem Fernsehlautsprecher hören. 


20 DATA 7,0,1,6,8,2,5,4,3 

30 GÜSUB 9000 

40 LET CC=JS (X+1,Y+1) 

90 IF FR=1 THEN GÜSUB 500 
100 GÜTÜ 30 
110 PÜKE 36877,212 
120 FÜR L= 15 TO O STEP -1 
130 PÜKE 36878,15 
140 FÜR M=1 TO 10 
150 RETURN 


Nach der Zeile 150 geht es wie im vorherigen Programm weiter- 
Wenn Sie nun den Feuerknöpf drücken und dabei den Regler bewegen, 
bekommen Sie ein anderes Geräusch. Aber was passiert in dem 
Programm ? Die Variable FR ist für den Feuerknöpf 
verantwortlich, sie hat immer den Wert O . Aber in dem Moment in 
dem sie gedrückt wird, ändert sich dieser Wert in 1. Bei diesem 
Programm finden Sie die entsprechende Abfrage in Zeile 90. Die 
POKES in den unteren Zeilen werden Sie kennen, sie sind für die 
Lautstärke und den Ton zuständig. 

Wenn Ihnen jedoch diese Abfrage zu lang seien sollte, so sollten 
Sie sich die folgende ansehen. Die Zei1ennummerm 100-500 sollten 
Anweisungen in Ihrem Programm sein. In der Unterroutine wird 
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direkt au-f den schon erwähnten VIA Baustein gesprungen 


1000 GOSUB 9000 
1010 IFCJS AND4) THEN 100 
1020 IF(JS AND16)THEN 200 
1030 IF(JS AND 128)THEN 300 
1040 IF(JS AND 8) THEN 400 
1050 IF(JS AND32) THEN 500 
1060 GOTO 1000 


9000 POKE 37139,0:POKE 37154,127 
9010 J1=PEEK (37137) 

9020 J2=PEEK (37152) 

9030 JS=J1ÜRJ2:RETURN 


An der Stelle der zwei Doppelpunkte muß nun Ihr Programm stehen. 
Wobei Sie sich natürlich nicht an die vorgegebenen Zeilennummern 
halten müssen. Bei Programmen die auf cpehrere Bilder zugreifen, 
kann es sinnvoll sein die Joystickroutine mehrmals zu 
wiederholen. Wobei hier natürlich nur der erste Teil von 1000 bis 
1060 gemeint ist. 
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5-11 Abfrage der Paddle-Bewegungen 


Auch die Paddels lassen sich mit einem einfachen PEEK-Befehl 
abfragen. Zwei Speicherstel 1 en des VC--20 enthalten jeweils den 
digitalisierten Wert der waagerechten bzw- senkrechten Richtung: 

PEEK(36872) Wert der horizontalen Richtung von Obis 255 
PEEK(36873) Wert der vertikalen Richtung von Obis 255 


5.12 Die Programmierung der Funktionstasten 

Der VC—20 hat als einer der ersten Heimcomputern die aus der 
kommerziellen Datenverarbeitung bekannten sehr nützlichen 
Funktionstasten- Die übersichtlich angeordneten Tasten mit den 
Kennzeichnungen Fl—F8 haben vom Betriebssystem her beim VC—20 
keine bestimmte Aufgabe- Ihren Sinn erhalten sie erst durch 
entsprechende Anwenderprogramme, die den einzelnen Funktionstas— 
ten bestimmte Funktionen zuweisen. 

Wenn Sie nun die Funktionstasten für Ihr Programm nutzen wallen 
benötigen Sie zunächst einmal die ASCII Werte der Tasten- Das 
folgende Programm zeigt Ihnen den Wert der Taste an, die Sie 
gerade gedrückt haben. 


10 PRINT •'( CLR/HÜME)" 

20 GET A^ : IF A^= " GOTO 20 

30 A= ASC (A^) 

40 PRINT •• DIESE TASTE HAT DEN ASC II-WERT’'5A 
50 GOTO 20 

Die Werte der einzelnen Funktionstasten lauten: 


Fl 

= CHR2^ 

(133) 

F2 

= CHR^ 

(137) 

F3 

= CHR^ 

(134) 

F4 

= CHM 

(138) 
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F5 = CHRÜ? (135) 

FÄ = CHR$ (139) 

F7 = CHR^ (136) 

F8 = CHR$ (140) 

So, wie Sie mit der oben au-fgeführten Routine den Wert der 
einzelnen Tasten bekommen, können Sie diese Werte auch in Ihr 
Programm einsetzen. Ein Beispiel gibt das folgende Programm: 

5 POKE 36879,8 
10 PRINT”(CLR/HGME)" 

20 PRINT"BITTE GEBEN SIE IHREN TEXT EIN” 

30 PRINT”DIE TEXTEINGABE MIT RETURN ABSCHLIESSEN” 
40 INPUT T$ 

50 PRINT”(CLR/HÜME)” 

100 PRINT“ZEIGE TEXT? DRÜCKE Fl” 

110 GET A^:IF A^O CHR$(133) THENllO 
120 IF A$<> CHR^(133) THEN GOTO130 
130 PRINT”(CLR/HÜME)" 

140 PRINT”RVS □N”;T^ 

150 PRINT“NEUEN TEXT EINGEBEN? DRÜCKE F3” 

160 GET B^:IF B^O CHR4f(134) THEN GOTO 150 
170 PRINT“EINEN MOMENT BITTE” 

180 FÜRI=1TQ3000:NEXT 
190 GÜT05 

Wenn Sie das Programm starten, werden Sie aufgefordert einen Text 
einzugeben. Das in Zeile 40 stehende T$ ist die Variable für den 
eingegebenen Text, der in der Zeile 140 wieder ausgegeben wird. 
In den Zeilen 110 und 160 werden die zwei Funktionstasten 
abgefragt. Erst wenn eine der Tasten gedrückt wird geht das 
Programm zur nächsten Anweisung . Dieses ist der große Vorteil 
der "funktionslosen” Funktionstasten, denn Sie müssen sich die 
Vorteile dieser nicht Tasten durch die Aufgabe anderer erkaufen. 
Ein weiter Vorteil ist die übersichtliche Anordnung der 
Funktionstasten in einem Block. Somit können die Funktionstasten 
wesentlich zum Bedienungskomfort eines Programmes beitragen. 


148 


Noch ein Tip zur Verwendung der Funktionstasten : besonders bei 
komplexen Programmen empfiehlt es sich, stets bestimmte 
Funktionstasten mit den selben Befehlen zu belegen, zum Beispiel: 

F3 = Programmende 

F4 = Eingabe berichtigen 

F7 = Daten abspeichern 

So werden Ihre Programme leichter bedienbar. Ein fremder Anwender 
findet sich dann auch ohne blättern in der Bedienungsanleitung 
gut und schnell zurecht. 


5.13 Wie man Programme vom VC-20 auf CBM—Rechner überträgt 

Es ist hinreichend bekannt, daß VC-20 Kassetten von anderen 
Commodore-Rechnern nicht oder nicht richtig gelesen werden 
können- Hier soll eine Möglichkeit aufgezeigt werden, dies ohne 
großen Aufwand oder Programmierung in Maschinensprache zu tun- 

Für alle, denen die Speicheraufteilung des VC-20 nicht geläufig 
ist, hier eine kurze Zusammenfassung: Der Basic-Bereich beginnt 
bei dem Grundgerät bei :^1000 und reicht bis ^lEOO, mit 3K-RAM von 
^0400 bis :J1E00, bei mehr als 3K-RAM von ^1200 bis ^4000, oder 
$f6000 bis ^8000, je nach Größe der Erweiterung- 

Grundvoraussetzung für eine erfolgreiche Übertragung ist, daß das 
Programm nicht in Maschinensprache-Format auf Kassette 
gespeichert ist. 

Bei diesem Format handelt es sich um ein speziell für den VC-20 
erfundenes Kassettenformat, das eine Verschiebung des Programmes 
beim Laden verhindert. In diesem Format gespeicherte Programme 
müssen zuerst auf dem VC-20 mit LOAD geladen werden und 
anschliessend mit SAVE wieder auf Band geschrieben werden. Außer— 
dem muß der CBM-Rechner mindestens 4K-Ram mehr haben, als für das 
Programm wirklich benötigt wird- 
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Laden Sie nun das Programm auf dem CBM-Rechner und geben Sie in 
Zeile 1 die folgenden Befehle ein und starten das Programm mit 
"RUN" : 

A=PEEK(251):B=PEEK(252):PÜKE1025,A:PÜKE1026,B: PÜKE1027,1:PÜKE1028,O 

Löschen Sie jetzt die Zeile 1 

Das Programm befindet sich nun im Speicher und kann geändert oder 
aber ausgeführt werden- 


I 
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5-14 Programme, die sich selbst starten 


Beim VC-20 gibt es die Möglichkeit, Programme direkt nach dem 
Einschalten automatisch zu starten. Solche Programme 
(Maschinenpro—gramme) müssen im ROM oder EPRÜM Adressbereich von 
:^A000 bis ^BFFF liegen. Damit der VC-20 das Autostartprogramm 
erkennt, müssen die ersten 9 BYTES -folgendes enthalten: 

r^AOOO STARTADRESSE DES PROGRAMMS, LOW BYTE 
4:A001 ST ART ADRESSE DES PROGRAMMS, HIGH BYTE 
^A002 NMI-VEKTOR (RESTORE), LOW BYTE 
$A003 NMI-VEKTOR, HIGH BYTE 

^A004 - ^AOOS ^41, 4f30, ^C3, ^C2, 4fC2, ^CD TEXT "AO CBM“ 

5-15 Programmierung des USER PORT 

Die acht Datenleitungen des USER-PORT können einzeln aut Ein¬ 
oder Ausgabe programmiert werden- Dazu werden die entsprechenden 
BITS des Datenrichtungsregisters gesetzt (=Ausgang) oder gelöscht 
(=Eingang>- Die Adresse des Datenrichtungregister ist 37138. Die 
eigntlichen Daten werden in das Datenregister Adresse 37136 
geschrieben oder von dort gelesen. 

Belegung an der Unterseite des USER-PORTS: 

N und A= GND (Masse), B= CBl, M= CB2, C bis L= PBO bis PB7. 


5.16 Ein Tip zu den Commodore RS-232 Schnittstellen 

Bei den Commodore VC-20 Schnittstellen VC-1011 RS 232 TTY mit 20 
mA Stromschieite und VC-1011 RS 232 Terminal kann es Vorkommen, 
daß Daten verlorengehen. Mit dieser Abtrage vor der Ausgabe eines 
BYTES ist es möglich, diesen Fehler zu korrigieren: 

lOO IF (PEEK(37136)AND192) <> 192 THEN 100 
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5-17 So nutzen Sie Ihre Disketten doppelt 


Wie Sie sicher Missen, sind preiswerte Dissketten in der Regel 
nur einseitig beschreibbar. 

Wenn Sie sich Ihre Diskette einmal genau ansehen, werden Sie 
bemerken, daß sich auf der rechten Seite der Diskette eine kleine 
Einbuchtung befindet- Diese Einbuchtung dient der Floppy dazu, 
den Unterschied zwischen einer geschützten, also nicht mehr 
beschreibbaren oder einer beschreibbaren Diskette zu erkennen- 
Drehen Sie Ihre Diskette um und stecken Sie so in das Laufwerk, 
so findet das Laufwerk keine Einbuchtung und geht davon aus, daß 
die Rückseite der Diskette nicht beschreibbar ist. Da bei den 
meisten Diskettenfabrikaten aber auch die Rückseite der einfachen 
Disketten physisch beschreibbar ist, brauchen Sie nur für die 
fehlende Einbuchtung zu sorgen. 

Nehmen Sie nun eine andere Diskette zur Hand, legen sie mit der 
Einbuchtung nach links auf die andere und zeichnen mit einem 
Bleistift vorsichtig die Einbuchtung nach. Jetzt brauchen Sie nur 
noch mit einer Schere die eingezeichnete Einbuchtung 
auszuschneiden- Der Erfolg dieser vielleicht etwas mühsamen 
Ausschneidearbeit wird sich sofort auszahlen, denn sie haben nun 
die doppelte Speicherkapazität auf einer Diskette. Am besten 
rüsten Sie Ihre Disketten vor dem ersten Benutzen um- So 
vermeiden Sie einen Datenverlust durch diese Aktion. Bitte gehen 
Sie in jedem Fall sorgfältig vor und bedenken Sie, daß kein 
Hersteller oder Händler auf entsprechend präparierte Disketten 
mehr Garantie gibt. 


5.18 Basic-Programme mit jeder Erweiterung 

Wer ist nicht erbost, wenn er gerade eine Speichererweiterung 
gekauft hat und zu Hause feststellt, daß seine eigenen Programme 
nicht mehr laufen. Für Ihre eigenen Programme können die 
folgenden Zeilen sehr hilfreich sein. 
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BILDSCHIRM : BS=4*(PEEK(36866)AND128)+64*(PEEK(36869)AND120) 


FARBE : FA=4*(PEEK(36866)AND128+37888 

Sie müssen also diese zwei Zeilen in Ihre Programmen einfügen- 
Dieses geschieht am besten am Anfang des Programmes. BS gibt die 
erste Position im Bildschirm-RAM , FA die erste Position im Farb- 
RAM an. Somit können Sie Ihre Programme auf jeder Erweiterung 
laufen lassen. Bitte vergessen Sie nicht, daß Sie diese Zeilen 
natürlich nicht in Maschinenspracheprogrammen anwenden können- 
Alles was Sie nun noch machen müssen ist, für jedes Bildschirm- 
Poke nur PÜKE BS,X und für jeden BiIdschirm-Poke nur POKE BS,X 
eingeben. Das "X" steht für den jeweils dazugehörigen Wert der 
dem Poke folgen soll- Wenn Sie also einen Farb-POKE haben, der 
den Bildschirm auf schwarz schaltet, müssen Sie nur PÜKE FA,8 
eingeben. Was macht man aber, wenn man ein 

Maschienenspracheprogramm hat für eine 3K Erweiterung besitzt, 
aber nur eine 16K oder mehr Erweiterung hat- Das folgende kleine 
Programm macht Ihrem VC-20 vor nur eine 3K Erweiterung 
angeschlossen zu haben- Es ist vollkommen egal ob es nun 16 oder 
32K sind- Sie müssen nur vor dem laden des Programms die nun 
folgenden Zeilen eingeben- 

PÜKE 641,0 
PÜKE 642,4 
POKE 643,0 
PÜKE 644,30 
PÜKE 648,30 
SYS 64824 

Nun wird auf Ihrem Bildschirm die normale Anzeige einer 3K 
Erweiterung erscheinen und Sie können nun Ihr Programm wie 
gewohnt einladen. Wollen Sie nun nach dem spielen wieder über den 
vollen Speicherplatz verfügen müssen Sie nur SYS 64802 eingeben. 
Nach Eingabe dieses Befehles können sie nun wieder wie gewohnt 
mit Ihren VC—20 arbeiten. 
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5.19 Programme retten bei OUT ÜF MEMORY ERROR 


Sollten Sie grössere Programme schreiben so werden Sie 
unweigerlich an die Leistungsgrenzen des VC—20 stoßen. Ein 
Zeichen dafür ist, wenn auf den Bildschirm "Out of Memory" 
erscheint. In solchen Fällen heißt es,Ruhe bewahren. Speichern 
Sie das Programm ab, ohne ihm einen Namen zu geben. Geben Sie 
statt "SAVE" nur "S Shift A " ein, somit haben Sie wenigstens Ihr 
schwer erarbeitetes Programm gerettet. Sie können es dann mit 
einer Speiehererweiterung wieder einladen. Viel Speicherplatz 
wird auch dadurch verschenkt, daß zwischen den einzelnen Befehlen 
immer eine Leerstelle gelassen wird. Sie können ihre 
Programmschritte also immer ohne Leertaste eingeben. Außerdem ist 
es für den Programmierer wichtig, auch während des Schreibens 
über den noch freien Speicherplatz im Bilde zu sein. Geben Sie 
dazu nur die folgende Zeile ein: PRINT FRE <0) und nach Drücken 
der RETURN Taste werden Sie über den noch freien Speicherplatz 
informiert. 


5.20 Der VC-20 als (scheinbarer) Speicher—Riese 

Sie haben natürlich auch die Möglichkeit,Ihren VC—20 "optisch" zu 
erweitern. Geben Sie bitte die folgenden Zeilen ein und sehen, 
was passiert : POKE 56,255 danach Return,in die nächste Zeile 
geben Sie bitte folgendes ein: 

SYS 58238 

Na, was sagen Sie dazu! Ist das nicht überraschend, was nun auf 
dem Bildschirm erscheint. Fragen Sie nun noch den freien 
Speicherplatz ab und Sie werden sehen, daß durch die Eingabe 
zweier Befehle der VC-20 "ganz in Ihrer Hand" ist. 

Probieren Sie noch ein bisschen mit anderen Pokes unter 100 oder 
darüber. Sie können Ihr Ergebnis auch gleich durch "? fre (O)" 
abfragen. Viel Spaß !! 
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5-21 Schiebung! ! oder wenn der Bildschirm schie-f steht 


Bei verschieden Graphikprogrammen -für den VC-20, die aus den USA 
importiert werden, erleben deutsche VC-20 Besitzer manchmal eine 
kleine Enttäuschung: das Bild steht nicht in der Mitte, sondern 
in der linken oberen Ecke- 

Weniger bekannt ist die Möglichkeit, hier Abhil-fe zu schaffen: 
Commodore hat neben anderen Dingen auch einen Video—Control1er in 
den VC-20 eingebaut- Diesen mysteriösen Chip können wir hier für 
unsere Zwecke dienstbar machen. Die Basisadresse des 
Videocontrollers ist ^9000. Dies ist auch gleich die Adresse für 
die horizontale Position des Bildes auf dem Bildschirm- In 
dezimal lautet diese Adresse 36864. Ein Register weiter oben, 
nämlich in 36865, befindet sich die vertikale Position des 
Bildes. Zwei einfache PÜKE—Befehle können also das Bild an jede 
Stelle auf dem Bildschirm verschieben- Die richtigen Inhalte für 
diese Register können Sie durch PEEK—Befehle aus den beiden 
Positionen erhalten, zweckmäßigerweise direkt nach dem 
Einschalten. In den folgenden Beispielen wird der Bildschirm 
einmal nach rechts oben und nach links oben verschoben- 


Nach 

rechts oben: 

10 

PÜKE 

36864,20 



20 

PÜKE 

36865,20 

Nach 

links oben 

10 

PÜKE 

36864,10 



20 

PÜKE 

36864,12 


155 


5.22 Veränderung des Speicherbereichs der 8-Ram Erweiterung 


Die 8-k Erweiterung des V/C-20 bietet den großen Vorteil, daß 
man die Möglichkeit hat, verschiedene Speicherbereiche 
einzustellen. Ulenn Sie die 8-k Erweiterung zur Hand nehmen, so 
werden Sie -feststellen, daß sie au-f der Rückseite eine 
Kreuzschlitzschraube besitzt. Wenn Sie nun diese herausschrauben, 
können Sie die Erweiterung ö-ftnen. Sie müssen jedoch beachten, 
daß Sie mit einem Schraubenzieher an den oberen Schlitzen das 
Gehäuse aufhebeln. Wenn Sie nun die Erweiterung betrachten,werden 
Sie bemerken,daß sich auf ihr ein Dilboard mit 4 Schaltern 
befindet. 



Wenn die Erweiterung aus dem Werk kommt,ist sie auf folgenden 
Bereich eingestellt: HEX 2000-3FFF 

DEZ 8192-16383 

Diese Einstellung ist so für den ausschließlichen Gebrauch der 
8k-ErWeiterung gedacht, also ist der 4. Schalter an. 

Wenn Sie zwei 8k-Erweiterungen benutzen, müssen Sie die Schalter 
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wie -folgt einstellen: alle Schalter, bis auf Nr.3 auf aus. Die 
Erweiterung liegt nach dem Umstellen dann in den folgenden 
Bereichen: HEX 4000-5FFF 

DEZ 16384-24575 


Wenn Sie eine 8k Ram Erweiterung zusammen mit einer 16k Ram 
Erweiterung benutzen, müssen Sie alle Schalter, bis auf die Nr.2 
auf aus stellen. Die Erweiterung liegt dann in den folgenden 
Bereichen: HEX 6000-7FFF 

DEZ 24576-32767 

Beim Abspeichern von Maschinenprogrammen ist es sinnvoll, sie in 
einen Bereich zu legen, der vom Basic nicht berührt wird. So 
liegen alle Spielmodule von Commodore in diesem Bereich. Der VC— 
20 zeigt dann die 8K Ram nicht mehr als Erweiterung des BASIC- 
Speicherplatzes auf dem Bildschirm, doch das sollte Sie nicht 
weiter beunruhigen. Um die Erweiterung in den Maschinensprache- 
Bereich zu legen, müssen Sie alle Schalter, bis auf die Nr.1,auf 
aus stellen. Die Erweiterung liegt dann in den folgenden 
Bereichen: HEX AOOO-BFFF 

DEZ 40960-49151 


Sie haben auch bei der 16K Erweiterung die Möglichkeit, ein 
Dilboard einzubauen,um sie in andere Bereiche zu legen. Bei der 
16K Erweiterung ändern sich die Adressen wie folgt : Anfang 
Bildschirm von 7680 auf 4096 und der Anfang des Färb—Ram von 
38400 auf 37888. Dieses ist bitte zu beachten. Wenn Sie nun zwei 
16K-Erweiterungen einstecken, werden Ihnen die zusätzlichen 16k 
nicht angezeigt. Sie können sie aber für Ihre Programme, die Sie 
in Maschinensprache, geschrieben haben nutzen, aber nur unter 
der Vorausetzung, daß Sie die oben genannten Dil Schalter auch 
eingesetzt haben. 
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5.23 Disk Menü 


Wer kennt nicht das Problem, das sich ergibt wenn man mit der 
Diskettenstation arbeitet. Es -fängt an beim Formatieren der Dis¬ 
ketten und hört aut beim Säubern der Disketten. Das -folgende 
Programm nun soll Ihnen hel-fen besser und leichter mit Ihrer 
Diskettenstation unzugehen. Wenn Sie das Programm eingegeben 
haben speichern Sie es au-f einer neuen -formatierten Diskette ab. 
Das Programm ist so au-f gebaut, daß Sie sobald Sie mit einer neuen 
Diskette arbeiten erst das Menü enladen und sich dann über das 
Menü den Inhalt der Diskette ansehen können. Sie brauchen beim 
Umgang mit den Programm nichts zu beachten. Sie wählen nur unter 
der entsprechenden Nummer nur den von gewünschten Teil ein und 
das Programm führt ihn aus. 

Doch nun zur Programmerklärung. Sobald Sie das Porgramm mit RUN 
gestartet haben, erscheint eine Maske auf dem Bildschirm (Zeile 
30 bis 160). In der Zeile 190 ist eine INPUT Anweisung, je nach 
Eingabe die Sie machen wählt das Programm einen anderen 
Programmteil an. Dieses können Sie in der Zeile 200 nachlesen. 
Wenn Sie sich nun die einzelen Unterroutinen ansehen, werden sie 
bemerken das hier nur die Ihnen schon bekannten Diskettenbefehle 
eingebunden sind. Bitte geben Sie das Programm sehr gewissenhaft 
ein, den nur so können Sie einen fehlerfreien Ablauf erreichen. 
Es wurden absichtlich keine Frabpokes gesetzt, denn jeder 
Programmierer hat da seine eigenen Vorstellungen. Diese Farbpokes 
werden in die Zeile 10 gesetzt. Doch nun folgt das Listing des 
hier besprochenen Programmnes. 
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10 pr-in'fcä" ;rern : hier koennen sie die +arbpokes se'tzen 
20 prin-fc"a Disk Menue " 

30 prin-t"-" 

40 pr i n-t 

50 pr irrt" l=Disk Direc'tor'^ " 

55 priri-t"2=drucke Directory " 

60 pr i n-t" 3=-forma.-t i ere D i sk " 

70 prin-t"4=irii-fcia.lisiere Disk" 

Ö0 pr in'fc''5=copiere File" 

90 prin-fc"6=umtoenennen File " 

100 pr irrt "7= loesche File " 

110 pr i ni;" 8=D i ske't'fce saeubern " 

120 pr iri-fc"9=schreibe Menue " 

130 pr i n*t" 10=D i sk S-ta-tus " 

135 pr i ni:" 11= lade Programm " 

140 print"12= SEnde^ " 

150 pr i n-fc 

160 prin-fc"-'• ;prin-t 

170 pr i n-t" SB i "t-te waeh len^'* ; 

190 i npu-t cho i se 

200 on choise gosub 250,800^300,350,400,450.500^550,600,650,900.700 
210 go-tol0 

250 prin-t"ä" 

251 open 1,8,0, " " 

252 ge-t # 1, a:^, b^: 

254 get # 1, a^:, b^ 

256 ge-t #l,a^,b^ 

258 c=0 : i HPa;$0 " " -then c=asc < a^ > 

260 i-tb^<:>" "-then c=c+ascCb:^>3#f256 
262 prin-t"a ’'mid^<;s-tr:^<c> , 2> ;-tab< 1 > ; " 

264 ge-t # 1, b^^: i-f=s-t<>0-then282 
266 i-f=b^<>chr:$:<;34>-then264 

2tD-8 ge-t #l,b^:i-f b^<>chr:^<34> -then pr i n-tb^; : go-to268 
270 ge-t #l,b^:;i-f b^=chr^C32> -then 270 
272 pr in-t-tab< 10> ; ;c:$=" " 

274 c:^=c$+b^ rge-t#l ,b^:zi-f b:$<>" "-then274 
276 pr in-t-tabc; 18> "a " le-f-t:^Cc:t, 3> 

230 i-f s-t=0 "then 254 
282 pr in-t"aß locks -frei " 

284 dose 1 :prin-t :prin-t :print"druecke »-e-turnä -Puer Menue" inpu-txit irr turn 

300 print"a":print = print 
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305 pr iri't"HDiske'fc-fce -Huers +ornia.-tieren ein leotenjS*':rc.r in-t 

310 forint"]^iriciabe des Diske-tten-Na/nen ä";rin|out disk:$:^^>rln-t 

320 rr in-fc"aEiri^abe der Diske't'ten-Nr. 3" ; : i npu-t exi;^ 

325 msuzro^:= " n ; -»-d i sk:$+ " , " -Hex-t^: 

330 oren 15.8,. 15. maxir 

340 c lose 15 :rfia.cro^=" " ire'turn 

350 fc-r i n-t" äl" : pr i n-fc : for i rft 

360 rr int "HDiske-t-te ein legen zum initia.lisierenja" :|or int 
370 pr inf'druecke Si^eturnä -Huer Initialisierung" ;= inputx^ 

380 open 15.. 8.15^ " i " 

390 c lose 15:return 
400 print"ä":print;print 

410 pr int "Bzopiere File <Han^ie>ja ";;input disk:^:print 

420 print"3neuer Fi le Name ä ".;;input nujs:$ 

425 niSJzno^= " c : " -♦■nws:^-^ " = " -»-d i sk^ 

430 open 15.. 815. mauzro^ 

440 c lose 15 ;majcro^=" " ireturn 
450 pr 1 nt" iä'* : pr i nt: pr i nt 

460 pr int "SEingaJoe des alten Fi lenamenä" ; : input disk^rprint 
470 pr int"3Eingal:ie des neuen Fi lenainenja" : input nujs:^ 

475 mao:ro:^= " r : " -•-nws:^-*-" = " -»-d i sk^ 

480 open 15815 .. macro^ 

490 c lose 15 ;ma^zro^=" " :return 


500 

510 

511 

1 cJ 

513 

514 

515 


print"ä":print:print 

printtalD<2> "Siloesche File < Hamen > iS" input disk^rprint 

tor i = 1 to5 : pr i nt: next r rem : poke -Huer -Hartoe 


f-' r ■■ 1 1-1 z t a.b 2 ’ Slui: • • ;i iü 

printtato<2>"5^ ^ m M ^ m 

printtaiD<2>"^ M 1 m M 

printt.alo(;2>"aÄ ^ ^ 


m 



516 pr i nttab 2 > ' 


517 printtaiD(;2>"i^' m m m mm m m »"zprint 

• 51 o pr infjal" 

519 goto1000 


520 printtah<2> "jyBJdruecke Return a‘‘;:iriput xS 

530 macro:f = " s : " -^d i sk^: 

535 open 15.. 8.. 15macro^ 

54Gi c lose 15 :macro:f=" " rreturn 
550 pr1nt"ä":print:print 

560 pr int "Äftjf* Rchtung B^t+ene Files werden ge loeschtä" :pr int ;pr int 

570 pr int "Bdruecke (return> -Huer Disketten—Saeufoerung 


580 open 1,8.. 15. "u" 

590 c lose 1 ireturn 

600 pr int"gj" :pr int :pr int 160 


Ü" : i nput x^ 


610 prin-t"aschreibe neues Menuea" :priri-t 

620 pr int"a:4ruecke Return a".,-:input x^- 

625 open 1.8.15 

630 se.ue " Nenue " .. 8 

635 c lose 1 

640 return 

650 open 1.. 8.15 

660 i nput# 1 . b$ . c, d 

670 pr i nt '* ä" ; pr i nt: pr i nt 

680 prinf'B^eh ler Sta.tusä" :pr int ;pr int "a^eh 1er # 

681 pr i nt" »Spur ; c. BSector d 

685 print:print"H0 = kein Fehler" 

690 dose 1rprint:print;print"druecke Ä^eturnä tuer Menue";:inputx^:return 

700 print"ä":tori = 1to10:print r next 

710 printtab<;3>"a*f5»f*J*f3ff*j#f R c h t u n g 

720 print 

725 printtab<3>"a Menue Ende 3 

730 end 

800 open4 d.. 7 

810 print" ä" :fori = 1to10:print:next 

850 print"aDrucka.usc^aic»e Directory^" 

851 openl,8.0, 

852 oiet #l,a.$:.b^ 

854 oiet # 1 , a;^, b^: 

856 eiet #l.a^.. b^ 

858 c=0 : i -f a.:^<> *' " then c=asc < a.^ > 

860 itb^<>""then c=c+asc <b^:>34k256 

861 pr i nt#4, ehr < 27 > ; " d " ; ehr $ C 10 > ehr < 0 > ; 

862 pr int#4 . mid^:v:str^<;e> .. 2 > .;ehr^:<; 9 > 

864 ejet #1. b:^ ; itst<:>0then882 

866 itb:^<>chr:fC34>then864 

867 pr int#4, ehr^<27> "d" ;ehr^<25> ;ehr^<0> ; 

868 get #l^b^:it b$<>ehr:$(!34> then pr int#4^ b:J; ;oioto86S 
870 o)et #l^b^::i-f= fo:J:=ehr:^<32> then 870 

371 print#4.. ehr^<27> "d" ;ehr^< 18> ;ehr$:< 0 > ; 

872 pr int#4 . ehr:^<9> ; :e^=" " 

874 e^=e:^+b^: :oiet#l ^ b^ : it b^<>""then874 

875 pr int#4, ehr:$<27> ; "d" ;ehr^<35> ;ehr4:<0> ; 

876 print#4^ ehri:<9> lett$:<e^,3> 

880 it st=0 then 854 

881 pr int#4.. ehr$(;27> ; "d" ;ehr^< 10> ;ehr:|:<0> ; 

86:2 print#4^ " B loeks trei " :e lose 4 

884 e lose 1:print:print:print"drueeke a^eturnä tuer Menue"inputx^rreturn 
900 oio$=ehr^:(:34> 
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910 i npu-fc *' äCSiAie Iches Prooirammä" ; r^r 
920 |c*r i n-t" äSBEl load '*oio^ ; pro^oio$ ; " 8 " 

930 pr i trt" " 

990 -f or i = 1 -fco6 : poUe622+ i . 13 r nex-fc : poke 156,6 

999 end 

1000 pr i n-b-tafo < 2 > " Korrek-fcur " ; : 

1010 inpu-tko^ 

1015 i -fko^<::> " j " andko^O " n " thenpr i nt" SH" : -aoto 1000 
1020 i -f ko^= " j " thenoioto500 
1030 i-fko:^=*'n’'thengoto520 
1040 end 
r ead'd - 
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5.24 Der Trick mit dem LIST 


Wen ärgert es nicht, daß man bei der Korrektur von Programmen ein 
'sehr schnelles Auge' braucht um die Änderungen auch schnell und 
sicher durchführen zu können. Denn Sie werden schon gemerkt 
haben, daß beim LIST—Befehl die einzelnen Zeilen recht schnell 
durchlaufen, so daß es durchaus pasieren kann, daß man ein paar 
Fehler innerhalb des Programmes übersieht. 

Auch die Verwendung der CTRL-Taste während des LIST hat nur eine 
schwache Verzögerung zur Folge, die für eine genaue Betrachtung 
der Zeile nicht ausreicht. 

Es gibt aber einen Trick mit dem man den Ablauf des LIST Befehls 
sehr verlangsamen, ja sogar anhalten kann. Hierzu dient eine 
bestimmte Speicherstelle des VC-20, die nur selten dokumentiert 
wird. Es handelt sich hierbei um die Adresse 37879. Durch 
Veränderung des Wertes in dieser Adresse kann die Uhr des VC-20 
schneller oder langsamer gemacht werden. So wird z.B. durch ein 
PÜKE 37879,0 die Uhr ca. 60 mal schneller als normal. Das hat zur 
Folge, daß beim LIST der Durchlauf sehr verlangsamt wird. Durch 
drücken der SHIFT-Taste wird jede Zeile recht gut lesbar- Drückt 
man dann noch die CTRL-Taste, so wird der Durchlauf ganz 
angehalten. Ansonsten läßt sich die Änderung jeder Zeile bzw. der 
Abbruch durch RUN/STÜP wie gehabt durchführen. 

Ein Effekt dieses PüKEs ist außerdem das schnellere Blinken des 
Cursors und die schnellere Bewegung des Cursors über den 
Bildschirm. Wird der SUPER EXPANDER verwendet, so werden auch 
verschiedene Grafik—Befehle langsamer ausgeführt- 
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5-25 Unnew 


Haben Sie auch schon einmal aus Versehen ein Programm mit "NEW" 
gelöscht, ohne es vorher abgespeichert zu haben? 

Dann ist das folgenden Porgramm genau richtig für Sie- 
Das Wesen des "NEW"-Befehls ist es, daß nicht wie vielleicht zu 
vermuten ist, der gesamte Speicher gelöscht wird, sondern nur die 
BASIC—Zeiger zurück gesetzt werden- Aus diesem Grund ist es kein 
größeres Problem, diesen Befehl wieder rückgängig zu machen- 
Wichtig ist nur, daß Sie keine neuen Variablen nach dem "NEW"- 
Befehl benutzt haben. 

Das Programm liegt wieder im Kassettenpuffer und wird einfach mit 
SYS 828 gestartet- Anscchließend ist Ihr BASIC-Programm wieder 
vorhanden- 


180 

033C 





• OFT 

PI 

200 

033C 





*■ = 

828 

210 

033C 

A5 

2B 



LDA 

$2B 

220 

033E 

R4 

2C 



LDY 

$2C 

230 

0340 

85 

22 



STA 

$22 

240 

0342 

84 

23 



STY 

$23 

250 

0344 

A0 

03 



LDY 

#3 

260 

0346 

C8 



NULL 

INY 


270 

0347 

Bl 

22 



LDA 

< $22> ,Y 

280 

0349 

D0 

FB 



BNE 

NLtLL 

290 

034B 

C8 




INY 


290 

034C 

98 




TYA 


290 

034D 

18 




CLC 


300 

034E 

65 

22 



ADC 

$22 

310 

0350 

A0 

00 



LDY 

nQ 

320 

0352 

91 

2B 



STA 

< $2B),Y 

330 

0354 

A5 

23 



LDA 

$22 + 1 

340 

0356 

69 

00 



ADC 

«0 

350 

0358 

C8 




INY 


360 

0359 

91 

2B 



STA 

( $2B),Y 

370 

035B 

88 




DEY 


380 

035C 

A2 

03 


T0 

LDX 

«3 

390 

035E 

E6 

22 


TDREI0 

INC 

$22 

400 

0360 

D0 

02 



BNE 

* + 4 

410 

0362 

E6 

23 



INC 

$22 +1 

420 

0364 

Bl 

22 



LDA 

< $22),Y 

430 

0366 

□ 0 

F4 



BNE 

T0 

440 

0368 

CA 




DEX 


450 

0369 

D0 

F3 



BNE 

TDREI0 

460 

036B 

A5 

22 



LDA 

$22 

470 

036D 

69 

02 



ADC 

«2 

480 

036F 

85 

20 



STA 

$2D 

490 

0371 

A5 

23 



LDA 

$22 1 

500 

0373 

69 

00 



ADC 

♦♦0 

510 

0375 

85 

2E 



STA 

$2E 

520 

0377 

20 

63 

A6 


JSR 

$A663 

530 

037A 

4C 

67 

E4 


JMP 

$E467 
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KAPITEL 6 


BASIC-ERWEITERUNGEN UND TOKENS 


Um Ihren VC—20 richtig zu verstehen, müssen Sie sich natürlich 
auch mit dem Aufbau der verschiedenen Routinen, die für das 
eigentliche interpretiern zuständig sein, auskennen. Dazu ist es 
wichtig zu wissen, in welcher Form das BASIC Programm 
abgespeichert wird, und wie es modifiziert werden kann. Der erste 
Schritt dazu, ist die Kenntnis der sogenannten TOKEN. 


6.1 TOKENS - Was ist das ? 

Wie Sie wissen werden, kann jeder Computer, auch Ihr VC—20, nur 
mit Zahlen umgehen. Genauer gesagt mit 2 Zahlen: 0 und 1. Diese 
elektrische Zustände bilden zusammen eine Information. Geben Sie 
also den Befehl PRINT ein, so kann der Computer diese Buchstaben¬ 
kombi nati an überhaupt nicht verstehen. Er muß diesen Befehl in 
eine Zahl umwandeln. Anderes ist das mit dem Teil nach PRINT. 
Steht dort zum Beispiel irgendein Satz, der also auf dem 
Bildschirm ausgegeben werden soll, so wandelt der Computer nicht 
den ganzen Satz in eine Zahl um, sondern Zeichen für Zeichen. Im 
Speicher wird also für den Befehl PRINT genauso viel Platz 
benötigt, wie für ein einfaches 'A'. Die Zahl, die aus dem Befehl 
PRINT errechnet wurde nennt man TOKEN. Jeder BASIC—Befehl, jede 
Funktion und jedes Sonderzeichen, ist so als Zahl zu kodieren. Um 
nun später den Aufbau einer BASIC-Zeile zu verstehen, müssen wir 
uns an dieser Stelle mit den TOKEN beschäftigen. 

Auf der nächsten Seite nun, folgt eine Tabelle sämtlicher TOKEN. 
Auf ihre Anwendung kommen wir später noch. 

Liste aller TOKEN 


128 

END 

160 

CLOSE 

192 

TAN 

129 

FOR 

161 

GET 

193 

ATN 

130 

NEXT 

162 

NEW 

194 

PEEK 


164 


131 

DATA 

163 

TAB( 

195 

LEN 

132 

INPUT# 

164 

Tü 

196 

STR^ 

133 

INPUT 

165 

FN 

197 

VAL 

134 

DIM 

166 

SPC( 

198 

ASC 

135 

READ 

167 

THEN 

199 


136 

LET 

168 

NOT 

200 

LEFT^ 

137 

BGTÜ 

169 

STEP 

201 

RIGHTS 

138 

RUN 

170 

+ 

202 

MID^ 

139 

IF 

171 

- 

203 - 

- 254 unbenutzt 

140 

RESTORE 

172 

* 

255 

(PI) 

141 

GÜSUB 

173 

/ 



142 

RETURN 

174 




143 

REM 

175 

AND 



144 

STOP 

176 

ÜR 



145 

ÜN 

177 

> 



146 

WAIT 

178 

= 



147 

LOAD 

179 

< 



148 

SAVE 

180 

SGN 



149 

VERIFY 

181 

INT 



150 

DEF 

182 

ABS 



151 

PÜKE 

183 

USR 



152 

PRINT# 

184 

FRE 



153 

PRINT 

185 

POS 



154 

CONT 

186 

SQR 



155 

LIST 

187 

RND 



156 

CLR 

188 

LÜG 



157 

CMD 

189 

EXP 



158 

SYS 

190 

COS 



159 

□PEN 

191 

SIN 



An Hand dieser 

Tabelle, 

kann man nun 

leicht 

jedes beleihe 


Programm analysieren- Dazu ist es allerdings notwendig, etwas in 
Maschinensprache zu arbeiten- Sie können ein BASIC Programm auf 
zwei verschiedene Art und Weise analysieren- Die einfachste 
Möglichkeit ist die Anschaffung eines sogenannten Monitors- Mit 
diesem Monitor können Sie nun leicht jede Adresse des VC-20 
ausleisten, seine Register überwachen, Programme laden und 
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Speichern, Programme verändern und vieles mehr. Die zweite 
Möglichkeit wäre, mit der PEEK-Funktion Wert für Wert aus dem 
Speicher zu lesen und auf Bildschirm oder Drucker auszugeben. 
Danach könnten mögliche Änderungen mit dem POKE-Befehl 
durchgeführt werden. Aber Vorsicht! Ein BASIC-Programm kann durch 
solche Änderungen, wenn diese nicht korrekt sind, auf leichte Art 
und Weise zerschgossen werden. 

Sehen wir uns zunächst einmal den Aufbau einer BASIC-Zeile an. Um 
an die Adresse der ersten BASIC-Zeile zu gelangen, müssen Sie die 
Werte in den Adressen 4097 und 4098 auswerten. 

X =PEEK(4097)+256*PEEK(4098) 

Ein Ausgabe mit dem Monitor könnte folgendermaßen aussehen: 

.: 1000 00 10 10 OA 00 99 22 56 
.: 1008 43 2D 32 30 22 3A 80 00 
.: 1010 00 00 Kx XX xx xx xx xx 

Was bedeuten nun die einzelnen Speicherplätze ? Die erste Adresse 
ist jeweils der Speicherplatz, an der die einzelnen Werte stehen. 
Da es sich hier um ein BASIC-Programm handelt, ist diese Adresse 
^^1000 oder dezimal 4096. Danach steht die eigentliche 
Verbindungsadresse zwischen erster und nächster Programmzeile. In 
unserem Beispiel bedeutet das, daß die nächste Programmzeile bei 
der Adresse ^1010 oder dezimal 4112 beginnt- Die nächste Adresse 
stellt die verwendete Zeilennumer dar. Hier lautet sie :^0A oder 
dezimal 10. Danach folgen die oben besprochenen TOKENS. Die Zeile 
endet mit dem Wert 0. Nach diesem Zeilenende könnte das Programm 
mit einer neuen Zeilennummer normal weitergehen. In unserem 
Beispiel steht hier die Adresse O. Diese Adresse sagt dem BASIC- 
Interpreter, der die ganze Zeile abarbeitet, daß hier das 
Programm beendet ist- 

In BASIC würde das oben angegebene Beispiel so aussehen: 
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10 PRINT "VC-20 


Der reine Anwender wird mit diesen Informationen vielleicht noch 
nicht 50 viel anfangen können. Aber derjenige, der seinen 
Computer von "Anfang bis Ende" kennen will, der wird rasch die 
Möglichkeiten entdecken, die mit diesen Kenntnissen aufgedeckt 
werden. 

Auf den nächsten Seiten finden Sie nun noch eine Reihe 
erstklassiger BASIC-Erweiterungen - also Maschinenprogramme, die 
dem Programmierer sehr nützlich sein können. Lassen Sie sich von 
diesen Ideen inspirieren und entwickeln Sie selbst einmal 
Maschinenprogramme, oder beschäftigen Sie sich an einem 
regnerischen Tag doch einmal ausführlich mit dem BASIC des VC—20. 
Sie werden sehen, wie schnell auch Sie zu einem VC—20 Experten 
werden. 
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6-2 Append - BASIC-Programme werden verbunden 


Sicher haben Sie auch schon das Problem gehabt, daß Sie zwei 
BASIC-Programme aneinander-Fügen wollten. Vielleicht haben Sie den 
Trick mit dem Bildschirmeditor benutzt ( Zeilen auf dem 
Bildschirm stehen lassen, zweites Programm laden und die Zeilen 
auf dem Bildschirm wieder einiesen). Dieses Verfahren hat aber 
den besonderen Nachteil, daß die Anzahl der Zeilen auf die 
Kapazität des Bildschirms beschränkt ist- Wir wollen Ihnen nun 
ein Verfahren zeigen, mit dem Sie beliebig lange Programme 
verbinden können. 

Bei diesem Verfahren wird ein reines Anhängen durchgeführt- Dies 
bedeutet, daß das nachgeladene Programm größere Zeilennummern 
haben muß als das erste Programm. Sie können sich also nun eine 
Unterprogrammbibliothek aufbauen. Dabei sollten die 

Unterprogramme möglichst große Zeilennummern haben. Doch nun 
genug der Vorrede, wie fügen Sie nun BASIC-Programme aneinander? 
Tippen Sie zuerst Ihr nachzuladendes Programm ein und speichern 
Sie es auf Kassette oder Diskette ab. Nun tippen Sie ihr zweites 
Programm ein- Nur dieses Programm befindet sich nun in Ihrem 
Rechner. Tippen Sie nun die folgende Zeile ein: 

PRINT PEEK(43),PEEK(44) 

Geben Sie diese Zeile unbedingt im Direktmodus ein- Sie dürfen 
von jetzt an bis zum Abschluß des Aneinanderfügens keine 
Änderungen am Programm vornehmen oder eine Variable benutzen! Sie 
haben mit der obigen Zeile zwei Werte erhalten. Dies sind die 
Startadressen für Ihr BASIC-Programm. Schreiben Sie sich diese 
beiden Zahlen auf, sie brauchen Sie gleich noch- 

Die Adresse des Ende Ihres BASIC-Programms steht in den 
Speicherstellen 45 und 46- Der Wert dieser beiden Speieherstellen 
wird nun in die Speicherstellen 43 und 44 geschrieben. Dies 
bedeutet praktisch, daß der BASIC-Start an das Ende Ihres alten 
Programms gelegt wird. Wir machen uns nun zu Nutze, daß der VC-20 
BASIC-Programme immer an die Adresse verschiebt, die in den 
Adressen 43 und 44 steht. Beachten müssen wir noch, daß der 
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BASIC-Interpreter am Ende der letzten Programmzeile zwei Nullen 
schreibt um das Ende des Programms zu kennzeichnen- Aas diesem 
Grund müssen wir die Adresse aus 45 und 46 um zwei vermindern und 
dann in die Spei eherstel1en 43 und 46 schreiben- Tippen sie nun 
ein: 

PÜKE43, (PEEK (45) ■4-256*PEEK (46) -2) AND255 
PGKE44,(PEEK(45)+256*PEEK(46)-2)/256 

Damit haben Sie nun den BASIC—Start verlegt- Nun können Sie das 
zweite Programm nachladen: 

LGAD"name" 

Wenn Sie nun LIST eintippen, sehen Sie nur das zweite Programm- 
Tippen Sie nun in die Speieherstellen 43 und 44 die 
aufgeschriebenen Werte ein: 

PGKE43,..- 
PGKE44,- - - 

Nun sind Ihre beiden Programme aneinandergefügt- Wenn Sie LIST 
eintippen, sehen Sie beide Programme fein säuberlich auf dem 
BiIdschirm- 
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6-3 AUTO - automatische Zeilennumerierung 


Wir wallen Ihnen nun noch ein kleines BASIC—Programm zeigen, daß 
Ihnen viel Tipparbeit ersparen wird. Das Programm erzeugt 
automatisch Zeilennummern- Sie geben die Nummer der Startzeile 
ein und anschließend die Schrittweite der Zeilen. 

Von nun an wird nach jedem Drücken der RETURN—Taste eine neue 
Zeilennummer erzeugt- Das Programm sieht -folgendermaßen aus: 

O INPUT"START";S:INPUT"SCHRITTWEITE";W:POKE1002,W 

1 PÜKEIOOO,INT(S/256)rPOKElOOl,S-INT(S/256)*256 

2 PRINTS; 

3 WAIT198, 1:GETA$:PRINTA^; : IFA^OCHR^ (13) THEN3 

4 PRINT"RUN5":FORI=631T0634:POKE1,145:NEXT:P0KE635,13:P0KE636,13 
:P0KE19B,6:END 

5 PRINTCHR$(145);" ":PRINT:PRINT" ";CHR^(145); 

CHR^^ (145) ; CHR$ (145) 

6 S=PEEK (1000) *256-^PEEK (1001) +PEEK (1002) : GOTO 1 

Zeile O tragt die Startzeile und die Schrittweite ab- Die 
Schrittweite wird in der Speicherstel1e 1002 sofort 
zwischengespeichert- Die Startzeile wird in Zeile 1 ebenfalls 
abgespeichert und ausgedruckt. In Zeile 3 werden nun die Eingaben 
eingelesen, bis Sie die RETURN-Taste betätigen. In Zeile 4 wird 
nun zuerst "RUN5" ausgedruckt, dann viermal CURSOR—hoch und zwei¬ 
mal Carriage-Return in den Tastaturpuffer geschrieben. Dadurch 
wird zuerst die eingetippte Zeile eingelesen und anschließend 
Zeile 5 gestartet- In dieser Zeile werden nun das "RUN5" und die 
READY-Meldung gelöscht. Dann wird in Zeile 6 die Variable S mit 
der neuen Zeilennummer belegt und wieder in Zeile 1 verzweigt, wo 
diese Zeilennummer wieder abgespeichert und ausgedruckt wird. 
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6-4 INPUT - Strings >88 Zeichen einiesen 


Wenn Sie mit der Floppy arbeiten, wird sicher, besonders im 
kommerziellen Bereich, eine der Hautpaufgaben das Einlesen von 
Informationen sein. Diese Informationen sind meistens Strings, 
wie A$, u.s.w. Das BASIC des VC-20 hat hierfür mehrere Befehle 
vorgesehen- Das Schreiben eines Strings in eine Datei, egal ob 
relative oder sequentielle, geschieht mit dem Befehl 'PRINT#' 

Ein Beispiel soll dies verdeutlichen: 

Sie haben eine Adressenliste. Eine gesamte Adresse steht in einer 
Stringvariablen, alle Adressen in einem Array, z-B- A<f- Nun 
möchten Sie diese auf Diskette in einem sequentiellen File 
abspeichern. Gehen wir davon aus, daß Sie 100 Adressen haben. Das 
folgende kleine BASIC-Programm würde dies übernehmen: 

10 OPEN 1,8,2,"ADRESSEN,S,W" 

20 FÜR 1=1 Tü 100 
30 PRINT#1,A^(I) 

40 NEXT I 
50 CLOSE 1 


Nach Ausführung dieses Programms sind Ihre Adressen auf Diskette 
in dem sequentiellen File 'ADRESSEN' gespeichert. 

Wir gehen davon aus, daß eine einzelne Adresse ca- 130 Zeichen 
enthält- 

Analog zum 'PRINT#'-Befeh1 existiert der 'INPUT#'-Befeh1 - Mit 
diesem Befehl ist es möglich, Strings wieder einzulesen. Es steht 
also zu vermuten, daß ein analoges Programm zu dem obigen die 
Daten wieder einliest. Ein solches Programm könnte nun so 
aussehen: 

10 DIM A^dOO) 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 FÜR 1=1 TO 100 
40 INPUT#1,A$(I) 

50 NEXT I 
60 CLOSEI 
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Dieses Programm -funktioniert aber leider nur, solange die 
einzelnen Strings nicht länger als 88 Zeichen sind. Dies ist aber 
leider nur in den wenigsten Fällen der Fall- 

Der Grund für dieses etwas seltsame Verhalten liegt darin, daß 
die Daten, die von der Diskette kommen, zuerst einmal in einem 
Zwischenspeicher aufbewahrt werden- Dies wäre ja nicht so 
schlimm, hätte dieser Speicher nicht die maximale Größe von 88 
Zeichen- Erhält der Rechner von der Floppy Strings, die länger 
als 88 Zeichen sind, so ergibt sich ein 'STRING TOO LÜNG ERROR'- 
Ein weiterer Nachteil des 'INPUT#'-Befehls ist, daß der 
Doppelpunkt und das Komma als Endezeichen erkannt werden- Somit 
ist es nicht möglich, diese Zeichen innerhalb eines Strings 
mitabzuspeiehern. 

Eine Möglichkeit, diese Nachteile zu umgehen, bietet der 'GET#'— 
Befehl- Mit diesem Befehl können Sie ein einzelnes Zeichen von 
der Floppy herunterholen. Ein BASIC—Programm, daß ohne Fehler 
läuft, wäre nun das Folgende: 

10 DIM A^(IOO):1=1 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 GET#1,Z^:IFZ^=13THEN50 
40 A4f(I)=A$(I) + Z^:GGTÜ30 
50 IF 1=100 THEN CLOSE 1 : END 
60 I = I 1 : GOTO 30 

Dieses Programm liest Ihre Adressen nun wieder richtig ein- Es 
hat jedoch zwei gewichtige Nachteile- Zum ersten ist es sehr 
langsam, zum anderen belastet es durch die umfangreichen 
Stringoperationen sehr die Garbage—collection—Routine- Um dies 
alles zu umgehen, bleibt uns nichts anderes übrig, als eine 
kleine Routine zu schreiben, die uns den 'INPUT#'-Befeh1 ersetzt- 
Diese kleine Maschinenspracheprogramm gestattet es, einen String 
beliebiger Länge mit allen Zeichen einzulesen- Aufgerufen wird 
die Routine mit : 
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SYS ADRESSE, VARIABLE, LäNBE DES STRINGS, FILENUMMER 


- ADRESSE : Dies ist die Startadresse des Programms 

- VARIABLE : Dies ist die Stringvariable, in die die Zeichen 

von der Floppy eingelesen werden sollen. 

- LäNBE : Dies ist die Anzahl der Zeichen, die eingelesen 

werden sol1. 

- FILENUMMER: Dies ist die Nummer, mit der das File eröffnet 

wurde- 

Bewährt hat sich diese Routine besonders bei relativen Dateien. 
Sie ist schnell und vergeudet keinen Speicherplatz 

Ein Programm, daß diese Routine benutzt, könnte dann so aussehen: 
10 DIM A^(IOO) 

20 OPEN 1,8,2,"ADRESSEN,S,R" 

30 FOR 1=1 TO 100 
40 SYS 828,Z$,130,1 
50 A$(I)=Z$ : GET#1,Z$^ 

60 NEXT I 
70 CLOSE 1 

In diesem Fall wurde angenommen, daß das Programm bei der Adresse 
828 liegt, und die Datensätze alle die Länge von 130 Zeichen 
haben. 

Auf der folgenden Seite finden Sie das Assemblerlisting zu dem 
Programm, assembliert für den Speicherbereich ab 828. 
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90: 033C .OPT PI 

; INPUT# 


; AUFRUF MIT SYS ADR , VAR IABLE ,LAEN6E ,F ILENUM^lER 


200: 

033C 




CHKCOM 

= 

$fCEFD 

; 

KOMMA 

210: 

033C 




GETVAR 

= 

$D08B 



220: 

033C 




FRESTR 

= 

«06A3 



230: 

033C 




GETBYT 

= 

$D79E 



240: 

033C 




STRRES 

= 

$D47D 


STRING RESERVIEREN 

250: 

033C 




STRADR 

= 

$62 



252: 

033C 




SETSTR 

= 

$0475 



255: 

033C 




DESCRPT 

= 

$64 



260: 

033C 




TEMP 

= 

$FB 



270: 

033C 




TEMP2 

= 

$FC 



280: 

033C 




CHKIN 


$FFC6 



290: 

033C 




BAS IN 

= 

$FFCF 



295: 

033C 




CLRCH 

= 

$FFCC 



300: 

033C 





* = 

$033C 



310: 

033C 

20 

FD 

CE 


JSR 

CHKCOM 



320: 

033F 

20 

8B 

D0 


JSR 

GETVAR 

; 

VARIABLE HOLEN 

325: 

0342 

48 




PHA 




325: 

0343 

98 




TYA 




325: 

0344 

48 




PHA 




330: 

0345 

20 

A3 

D6 


JSR 

FRESTR 



340: 

0348 

20 

FD 

CE 


JSR 

CHKCOM 



350: 

034B 

20 

9E 

D7 


JSR 

GETBYT 


LAENGE IN X-REGISTER 

365: 

034E 

68 




PLA 




365: 

034F 

85 

65 



STA 

DESCRPT 

+ 

1 

367: 

0351 

68 




PLA 




367: 

0352 

85 

64 



STA 

DESCRPT 



368: 

0354 

8A 




TXA 



LAENGE IN AKKU 

369: 

0355 

85 

FC 



STA 

TEMP2 



380: 

0357 

20 

75 

D4 


JSR 

SETSTR 

; 

PLATZ FUER STRING RESERVIEREN 

381 : 

035A 

84 

FB 



STY 

TEMP 



381 : 

035C 

A0 

00 



LDY 

#0 



381 : 

035E 

91 

64 



STA 

(DESCRPT) 

,Y 

381 : 

0360 

C8 




INY 




381: 

0361 

8A 




TXA 
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381 : 

0368 

91 

64 


ST6 

C DESCRPT),Y 

381: 

0364 

C8 



INY 


388: 

0365 

65 

F8 


LD6 

TEMP 

388: 

0367 

91 

64 


ST6 

< DESCRPT),Y 

390: 

0369 

80 

FD 

CE 

JSR 

CHKCOM 

395: 

036C 

60 

01 


LOY 

*tl 

395: 

036E 

61 

64 


LD6 

< DESCRPT),Y 

395: 

0370 

43 



PH6 


395: 

0371 

C8 



INY 


395: 

0378 

61 

64 


LD6 

< DESCRPT),Y 

395: 

0374 

48 



PH6 


400: 

0375 

80 

9E 

D7 

JSR 

GET6YT ; FILENUMMER HOLEN 

405: 

0378 

80 

C6 

FF 

JSR 

CHKIN 

410: 

0376 

68 



PL6 


410: 

037C 

85 

65 


ST6 

DESCRPT+1 

410: 

037E 

68 



PL6 


410: 

037F 

85 

64 


ST6 

DESCRPT 

430: 

0381 

60 

00 


LOY 

m 

433: 

0383 

80 

CF 

FF LOOP 

JSR 

66SIN 

440: 

0386 

91 

64 


ST6 

<DESCRPT),Y ; STRING ERSTELLEN 

450: 

0388 

C8 



INY 


450: 

0389 

C4 

FC 


CPY 

TEMP8 

450: 

0386 

D0 

F6 


6NE 

LOOP 

460: 

038D 

4C 

CC 

FF 

JMP 

CLRCH 
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6-5 STRINGS 


Die Stringverarbeitung im BASIC des VC—20 ist nicht gerade 
reichhaltig und kom-fortabel ausgefallen. Aus diesem Grund stellen 
wir Ihnen in diesem und dem nächsten Abschnitt zwei Programme 
vor, die dieses Manko etwas lindern- Der erste neue Befehl 
eröffnet die Möglichkeit, einen String beliebiger Länge zu 
erzeugen. 

Natürlich können Sie dies auch von BASIC mit einer kleinen 
Routine simulieren, z-B-: 

10 Aif="E” 

20 FÜR 1 = 1 Tü 10 : B$=B4?+A^ : NEXT I 

Das Ergebnis dieses Programms ist ein String, bestehend aus 10 
mal dem Buchstaben 'B'- Dieses Verfahren hat jedoch wieder zwei 
gravierende Nachteile- Wie immer im Vergleich zu Maschinensprache 
ist dieses Verfahren erheblich zeitaufwendiger- Der zweite 
Nachteil ist die übergroße Belastung der Garbage-collection. 
Gerade in dem nicht sehr großen Speicherbereich des VC-20 macht 
sich diese Routine bei häufiger Stringverarbeitung sehr schnell 
und oft in längeren Wartezeiten bemerkbar- 

Aufgerufen wird die Routine wie folgt : 

SYS ADRESSE,VARIABLE,LäNGE,ASCII-CODE DES ZEICHENS 

Ein Beispiel dazu wäre : 

SYS S28,B^,10,69 

Dieser Aufruf bewirkt das Gleiche wie das vorstehende BASIC- 
Programm. 

Auf der folgenden Seite nun das Assemblerl isting zu dieser 
Routine- 
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90: 033C 


.□PT PI 
; STRING* 


NS 


; AUFRUF MIT SYS ADR,VARlABLE,LAENGE,ASCII-CODE DES ZEICHE 


200: 

033C 




CHKCDM 

= 

*CEFD 

; 

KONMA 

210: 

033C 




6ETVAR 

= 

*0088 



220: 

033C 




FRESTR 

= 

*D6A3 



230: 

033C 




GETBYT 

= 

*D79E 



240: 

033C 




STRRES 

= 

*0470 

; 

STRING RESERVIEREN 

250: 

033C 




STRADR 


*62 



252: 

033C 




SETSTR 

= 

*0475 



255: 

033C 




DESCRPT 

= 

*64 



260: 

033C 




TEMP 

= 

*FB 



300: 

033C 





* = 

*033C 



310: 

033C 

20 

FD 

CE 


JSR 

CHKCOM 



320: 

033F 

20 

88 

D0 


JSR 

GETVAR 

; 

VARIABLE HOLEN 

325: 

0342 

48 




PHA 




325: 

0343 

98 




TYA 




325: 

0344 

48 




PHA 




330: 

0345 

20 

A3 

D6 


JSR 

FRESTR 



340: 

0348 

20 

FD 

CE 


JSR 

CHKCOM 



350: 

0348 

20 

9E 

D7 


JSR 

GETBYT 

; 

LAENGE IN X-REGISTER 

365: 

034E 

68 




PLA 




365: 

034F 

85 

65 



STA 

OESCRPT 

+ 

1 

367: 

0351 

68 




PLA 




367: 

0352 

85 

64 



STA 

OESCRPT 



368: 

0354 

8A 




TXA 


; 

LAENGE 

370: 

0355 

48 




PHA 


; 

LAENGE AUF STACK 

380: 

0356 

20 

75 

D4 


JSR 

SETSTR 

; 

PLATZ FUER STRING RESERVIEREN 

381 : 

0359 

84 

FB 



STY 

TEMP 



381 : 

0358 

A0 

00 



LDY 

#0 



381 : 

035D 

91 

64 



STA 

< OESCRPT) 

,Y 

381 : 

035F 

C8 




INY 




381 : 

0360 

8A 




TXA 





177 


381 : 

0361 

91 

64 


ST8 

C DESCRPT),Y 


381 : 

0363 

C3 



INY 



382: 

0364 

A5 

F6 


LD8 

TEMP 


382: 

0366 

91 

64 


ST8 

< DESCRPT),Y 


390: 

0368 

20 

FD 

CE 

JSR 

CHKCOM 


395: 

0368 

ftQ 

01 


LOY 

t»l 


395: 

0360 

81 

64 


LD8 

< DESCRPT),Y 


395: 

036F 

48 



PH8 



395: 

0370 

C8 



INY 



395: 

0371 

81 

64 


LD8 

< DESCRPT),Y 


395: 

0373 

48 



PH8 



400: 

0374 

20 

9E 

D7 

JSR 

GET8YT ; FUELLZEICHEN 

HOLEN 

410: 

0377 

68 



PL8 



410: 

0378 

85 

65 


ST8 

DESCRPT+1 


410: 

037r=i 

68 



PL8 



410: 

0378 

85 

64 


ST8 

DESCRPT 


420: 

0370 

68 



PL8 



420: 

037E 

88 



T8Y 

; L8EN6E IN Y- 

REGISTER 

430: 

037F 

88 



TX8 

; FUELLZEICHEN 

1 IN 8KKU 

440: 

0380 

88 


LOOP 

DEY 



440: 

0381 

91 

64 


ST8 

<DESCRPT),Y ; STRING 

ERSTELLEN 

450: 

0383 

□0 

F6 


6NE 

LOOP 


460: 

0385 

60 



RTS 


V 
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6.6 Erweiterung des MID^-Be-fehls 


Das Programm, das wir Ihnen nun vorstellen wollen, stellt eine 
sehr nützliche Erweiterung des MID^-Befehls dar- 

Menn Sie bisher ein oder mehrere Zeichen in einem String ändern 
wollten, hatten Sie keinen anderen Meg, als eine umständliche 
Konstruktion über LEFT$: und RIGHTS zu nehmen- Ein Beispiel dazu: 

Nehmen wir an. Sie haben folgenden String : 

A^= •• ABCDEFGG J KLMN " 

Sie möchten nun den achten Buchstaben in ein 'I' ändern- Dies 
müßten Sie so machen: 

A^ = LEFT4:(A^,7)+''I”+RIBHT^(A$,6) 

Dies ist ja noch eine recht einfache Formel. Kompliziert wird die 
Angelegenheit, wenn Sie diese Formel al1gerne!ngülig auch für 
mehrere Zeichen machen wollen. Nehmen wir an, der zu verändernde 
String steht in A:^, der einzusetzende String in B^, die Position 
in PG. Die Formel sieht dann folgendermaßen aus: 

A^ = LEFT^(A$,PÜ-l)+B^+RIGHT3f(A^,LEN(A$)-LEN(B^)-PÜ+l) 

Diese Formel sieht schon etwas mächtiger aus. Stellen Sie sich 
nun noch vor. Sie haben indizierte Variablen und Sie werden 
Schwierigkeiten bekommen, dies alles in eine Zeile zu packen. Und 
dies alles nur, weil ein Ausdruck wie 

MIDit(A^,PG-l,LEN(B^) ) =B^ 

nicht erlaubt ist! Diesem übel werden wir nun schnellstens 
Abhilfe schaffen- Auf den nächsten beiden Seiten finden Sie das 
Assemblerlisting zu dem Programm- Dieses Programm muß lediglich 
durch SYS 828 einmal initialisiert werden- Dann sind Befehle wie 
der Gbenstehende erlaubt. 
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90: 


E00: 

210 : 

220 : 

230: 

240: 

250: 

255: 

2G0: 

270: 

280: 

290: 

300: 

310: 

320: 

325: 

330: 

340: 

350: 

352: 

355: 

360: 

370: 

372: 

375: 

378: 

390: 

400: 

410: 

420: 

430: 

440: 

450: 

460: 

470: 

480: 


033C 


.OPT PI 

; MID$ RLS PSEUDOVRRIRBLE 


; MID$<STRINGVRRIRBLE,POSITION,LRENGE) = STRINGRUSORUCK 
; MIO$( STRINGVRRIRBLE,POSITION) = STR IN6RUS0RUCK 


033C 




MIOOOOE 

= 

$GR 

033C 




EXEOUT 

= 

$308 

033C 




OHRGET 

= 

$73 

033C 




OHRGOT 

= 

OHRGET + 6 

033C 




EXEOOLO 

= 

$G7E7 

033C 




VRRNRM 

= 

$45 

033C 




VRRROR 

= 

$49 

033C 




OESORPT 

= 

$64 

033C 




TESTSTR 

= 

$G08F 

033C 




GETVRR 

= 

$O08B 

033C 




SETSTR 

= 

$0R52 

033C 




OHKRUF 

= 

$GEFR 

033C 




OHKZU 

= 

$GEF7 

033C 




OHKOOM 

= 

$GEFO 

033C 




TEST 

= 

$OEFF 

033C 




GETBYT 

= 

$079E 

033C 




FRMEVL 

= 

$G09E 

033C 




ILLQURN 

= 

$0248 

0330 




FRESTR 

= 

$06R3 

0003 





* = 

3 

0004 




LRENGE 

* = 

*+ 1 

0005 




POSITION 

* = 

*+l 

0007 




VRRSTR 

* = 

*+2 

0007 




GLEIOH 

= 

$82 

0007 




ZEIG2 

= 

$50 

0330 





* = 

828 

0330 

R9 

47 


INIT 

LOR 

#<MIOTEST 

033E 

R0 

03 



LOY 

♦♦>MIOTEST 

0340 

80 

08 

03 


STR 

EXEOUT 

0343 

80 

09 

03 


STY 

EXEOUT+l 

0346 

60 




RTS 


0347 

20 

73 

00 

MIOTEST 

JSR 

OHRGET 

034R 

09 

OR 



OMP 

♦♦MIOOOOE 

0340 

F0 

06 



BEQ 

MIOSTR ; 

034E 

20 

79 

00 


JSR 

OHRGOT 


VECTOR FUER STRTEMENT RUSFUEHREN 


KLRMMER RUF 
KLRMMER ZU 
KOMvlR 


; COOE FUER MIO« 
JR 


ISO 


490: 

0351 

4C 

E7 

C7 


JMP 

EXECOLD ; N0RM8LES ST8TEMENT 8USFUEHREN 

500: 

0354 

20 

73 

00 

MIDSTR 

JSR 

CHRGET ; N8ECHSTES ZEICHEN 

505: 

0357 

20 

F8 

CE 


JSR 

CHK8UF ; KL8MMER 8UF 

510: 

035A 

20 

8B 

D0 


JSR 

GETV8R ; V8RI8BLE HOLEN 

520: 

035D 

85 

64 



ST8 

DESCRPT 

530: 

035F 

84 

65 



STY 

DESCRPT+1 

535: 

0361 

85 

49 



ST8 

V8R8DR 

535: 

0363 

84 

48 



STY 

V8R8DR+1 

540: 

0365 

20 

83 

D6 


JSR 

FRESTR 

545: 

0368 

80 

00 



LDY 

#0 

545: 

036R 

Bl 

64 



LD8 

< DESCRPT),Y 

545: 

036C 

48 




PH8 

; L8ENGE 

545: 

036D 

F0 

2E 



BEG 

ILL 

550: 

036F 

20 

52 

C8 


JSR 

SETSTR ; STRING IN R8M UEBERTR8GEN 

560: 

0372 

80 

01 



LDY 

ttl 

560: 

0374 

Bl 

49 



LD8 

C V8R8DR),Y 

560: 

0376 

85 

05 



ST8 

V8RSTR ; V8RI8BLEN8DRESSE MERKEN 

570: 

0378 

C8 




INY 


570: 

0379 

Bl 

49 



LD8 

< V8R8DR),Y 

570: 

0378 

85 

06 



ST8 

V8RSTR+1 

600: 

037D 

20 

FD 

CE 


JSR 

CHKCOM 

610: 

0380 

20 

9E 

D7 


JSR 

GETBYT ; POSITION HOLEN 

620: 

0383 

88 




TX8 


630: 

0384 

F0 

17 



BEG 

ILL 

650: 

0386 

C8 




DEX 


650: 

0387 

86 

04 



STX 

POSITION 

660: 

0389 

20 

79 

00 


JSR 

CHRGOT 

660: 

038C 

C9 

29 



CMP 

#'•)- ; 8USDRUCK ZU ENDE 

665: 

038E 

□ 0 

04 



BNE 

NEXT 

665: 

0390 

89 

FF 



LD8 

♦♦$FF ; M8X. L8ENGE 

665: 

0392 

D0 

0C 



BNE 

STORE 

670: 

0394 

20 

FD 

CE 

NEXT 

JSR 

CHKCOM 

670: 

0397 

20 

9E 

D7 


JSR 

GETBYT ; L8ENGE HOLEN 

680: 

039A 

88 




TX8 


690: 

0398 

D0 

03 



BNE 

*+5 

700: 

039D 

4C 

48 

D2 

ILL 

JMP 

ILL0U8N 

710: 

03FI0 

85 

03 


STORE 

ST8 

L8ENGE 
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715: 

0382 

68 




PL8 


715: 

0383 

38 




SEC 


715: 

0384 

E5 

04 



SBC 

POSITION 

717: 

0386 

C5 

03 



C^F 

L8ENGE 

717: 

0388 

80 

02 



BCS 

OK 

717: 

0388 

85 

03 



ST8 

L8EN6E 

7E0: 

038C 

20 

F7 

CE 

OK 

JSR 

CHKZU ; KL8MMER ZU 

730: 

038F 

89 

82 



LD8 

«GLEICH 

770: 

03B1 

20 

FF 

CE 


JSR 

TEST 

780: 

0384 

20 

9E 

CD 


JSR 

FRMEVL ; 8USDRUCK HOLEN 

790: 

0387 

20 

83 

D6 


JSR 

FRESTR 

800: 

0388 

80 

02 



LOY 

«2 

800: 

038C 

81 

64 



LD8 

< DESCRPT),Y 

800: 

038E 

85 

51 



ST8 

ZEIG2+1 

800: 

03C0 

88 




DEY 


800: 

03C1 

81 

64 



LD8 

< DESCRPT),Y 

800: 

03C3 

85 

50 



ST8 

ZEIGE 

810: 

03C5 

88 




DEY 


810: 

03C6 

81 

64 



LD8 

(DESCRPT) 

820: 

03C8 

F0 

D3 



8EQ 

ILL ; NULL D8NN FEHLER 

840: 

03C8 

C5 

03 


* 

CMP 

L8ENGE ^ 

850: 

03CC 

80 

02 



BCS 

OKI 

860: 

03CE 

85 

03 



ST8 

L8ENGE 

870: 

03D0 

85 

05 


OKI 

LD8 

V8RSTR 

880: 

03D2 

18 




CLC 


880: 

03D3 

65 

04 



8DC 

POSITION 

910: 

03D5 

85 

05 



ST8 

V8RSTR 

910: 

03D7 

90 

02 



BCC 

*+4 

920: 

03D9 

E6 

06 



INC 

V8RSTR+1 

940: 

03D8 

84 

03 



LDY 

L8ENGE 

950: 

03DD 

88 



LOOP 

DEY 


950: 

03DE 

81 

50 



LD8 

CZEIGE),Y ; ZEICHEN 8US STRING8USDRUCK 

960: 

03E0 

91 

05 



ST8 

(V8RSTR),Y ; IN STRINGV8RI8BLE UEBERTR8GEN 

970: 

03E2 

C0 

00 



CPY 

«0 

970: 

03E4 

D0 

F7 



BNE 

LOOP 

980: 

03E6 

4C 

8E 

C7 


JMP 

«378E ; ZUR INTERPRETERSCHLEIFE 


1B2 


6.7 Der POP-Befehl 


In vielen BASIC-Dialekten gibt es den sogenannten PDP-Be-fehl. Er 
ermöglicht es, ein Unterprogramm zu verlassen, ohne den 'Return 
Befehl zu benutzen. Dies ist zwar auch ohne den POP-Befehl 
grundsätzlich möglich, hat jedoch den unschönen Nebeneffekt, daß 
die Rücksprungadressen der GOSUB—Routine nicht vom Stack entfernt 
werden. Wenn Sie oft auf diese Weise aus einem Unterprogramm 
herausspringen, wird die Folge ein 'OUT ÜF MEMORY ERROR' sein. 
Der Grund dafür ist, daß der Stack übergelaufen ist. 

Das folgende Programm tut nichts anderes, als 5 Bytes vom Stack 
zu entfernen. Rufen Sie dieses Programm jedesmal auf, bevor Sie 
ein Unterprogramm mit einem 'GOTO'-Befehl verlassen. 


; POP-BEFEHL 

; AUFRUF MIT SYS 828 


180: 

033C 




.OPT 

PI 

200: 

033C 




* = 

828 

205: 

033C 

63 



PLA 


205: 

033D 

68 



PLA 


210: 

033E 

A9 

FF 


LDA 

#255 

220: 

0340 

85 

4A 


STA 

S4A 

230: 

0342 

20 

8A 

C3 

JSR 

$C38A 

240: 

0345 

C9 

80 


CMP 

#141 

250: 

0347 

F0 

05 


BEQ 

GEFUNDEN 

260: 

0343 

A2 

0C 


LDX 

#12 

270: 

0348 

4C 

37 

C4 

JMP 

:»C437 

280: 

034E 

9A 



GEFUNDEN TXS 


230: 

034F 

68 



PLA 


300: 

0350 

68 



PLA 


310: 

0351 

68 



PLA 


320: 

0352 

68 



PLA 


330: 

0353 

68 



PLA 


340: 

0354 

4C 

AE 

C7 

JMP 

SC7AE 
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KAPITEL 7 : ANWENDUNGSPROGRAMMlERUNG FÜR FORTGESCHRITTENE 


In diesem Kapitel wollen wir Ihnen eine Reihe von Tips der 
Programmierung — an Hand von ausführlichen Beispielsprogrammen — 
geben. Diese Programme können von Ihnen eingegeben werden und 
verschiedene Aufgaben lösen. Das erste Programm ist zum Beispiel 
ein Programm zur Lagerhaltung. Jeder, der beispielsweise ein 
kleines Geschäft hat, kann mit diesem Programm seinen 
Steuerberater etwas entlasten. Es berechnet die Anzahl der 
einzelnen Artikel, ihre Einkaufs— und Verkaufspreise und 
natürlich die Mehrwertsteuer, So wissen Sie auf Knopfdruck "was 
die Stunde geschlagen hat". Danach beschreiben wir das Prinzip 
der Textverarbeitung. Hier können wir nur die Grundzüge dieses 
wohl aufwendigsten Thema der EDV erläutern. Aber Sie werden 
schnell hinter die Idee des Texteinlesens, Analysieren und 
Ausgeben kommen. Am Schluß dieses Kapitels finden Sie ein 
weiteres Programm. Diesmal was für die Spielfreudigen unter den 
Lesern, Suchen Sie Gold in einem Bergwerk — passen Sie aber auf, 
daß Sie nicht in einem Wassereinbruch geraten, oder durch einen 
Stollen fallen. 

All diese Programme sollen zwar dem Anwender erst einmal Freude 
an einem fertigen Programm bringen - sie sind in erster Linie 
dazu gedacht, den interessierten Anwender die Möglichkeiten von 
Dateiverwaltung, Tastaturabfrage, Farbe, Graphik usw. des VC-20 
verdeutlichen. Daher haben wir uns bemüht, jedes Programm so 
ausführlich wie möglich zu beschreiben. Sollten Sie denoch Fragen 
haben, so wenden Sie sich doch an uns. Aber zunächst sollten Sie 
erst einmal versuchen zu verstehen, was wir da programmiert 
haben. Ein bisschen Ahnung von BASIC gehört zwar schon dazu — 
aber auch der absolute Anfänger kann an Hand dieser Programme 
sehr viel nützliches lernen. 


7.1 Der Umgang mit Daten 
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Ein sehr wichtiges Thema in der EDV ist au-f jedem Gerät, ob groß, 
ob klein, der Umgang mit Daten und Dateien. Wir haben nun ein 
Programm entworfen, das Ihnen einen Großteil an Tips und Tricks 
bei der Programmierung einer Dateiverwaltung demonstriert. Dieses 
Programm erlaubt es verschiedene Artikel zu erfassen, die 
Einkaufs- oder Verkaufszahlen einzugeben und danach die Summen 
auszugeben. Dieses Programm benötigt, um ordnungsgemäß zu laufen, 
die 16K Erweiterung. Außerdem wird eine Floppy—Station benötigt 
und der Seikosha Drucker GP/lOO VC. 


Nun aber zuerst etwas über die Möglichkeiten der verschiedenen 
Dateiverwaltungsarten. Die bekannteste Art und Weise Daten zu 
lesen und zu schreiben, ist die sequentielle Datei. Dieses 

V. 

Verfahren, ist übernommen wurden, aus der Zeit, als auch die 
größeren Computer hauptsächlich mit Bandlaufwerken benutzt 
wurden. Um den Unterschied zwischen Platten- und Bandlaufwerken 
zu begreifen, stellen Sie sich am besten einen normalen 
Kassettenrecorder und auf der anderen Seite den Plattenspieler 
vor. Um nun an ein bestimmtes Musikstück zu gelangen, so ist es 
bei einem Bandlaufwerk notwendig, erst einmal an den Anfang des 
Bandes zu Spulen. Dann wird das Zählwerk auf O gestellt und es 
kann begonnen werden, an die Stelle zu fahren, an der das 
Musikstück beginnt (wir gehen davon aus, daß die Zählwerksziffern 
bei jedem neuen Musikstück bekannt sind). Erst dann kann man der 
Musik lauschen. Bei einem PIatenspieler dagegen, haben wir die 
Möglichkeit den Plattenarm direkt auf den Anfang des Musikstückes 
zu setzen — sofern man die Rillen sehen kann. 

Dieses Verständnis kann man auch bei Datasette und Floppy 
anwenden. Es ist klar, daß man bei einer Datasette nur Date für 
Date lesen kann — also sequentiell — nicht aber einen speziellen 
Satz. über das Lesen und Schreiben von Daten mit Hilfe des 
Kassettenrecorders, können Sie in dem entsprechenden Kapitel in 
diesem Buch nachlesen. 


Wir wollen uns an dieser Stelle nur mit der 
Denn wer richtige Datenverwaltung betreiben 
dieses schnelle Speichermedium nicht herum. 


Floppy beschäftigen¬ 
will, der kommt um 
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Auch bei der Floppy müssen wir, wie schon oben erwähnt, zwischen 
sequentiellen und relative Datei unterscheiden- Den Begriff 
"sequentiell" haben wir schon beschrieben - es beduetet ebens 
nacheinander. Was aber bedeutet nun "relativ"- Dieses Wort kennen 
wir schon aus unserem normalen Wortschatz. Direkt umgesetzt auf 
die EDV bedeutet dies: abhängig von der momentanen Position- 


Wir haben eben gesehen, daß wir beim Bandlaufwerk erst an den 
Anfang spulen mußten, um einen bestimmten "Satz", also eine Menge 
von Daten, zu lesen. Eine relative Datei ist hier viel flexibler- 
Bei ihr ist es möglich, abhängig von der momentanen Position des 
Lesekopfes, Sätze zu lesen. Verdeutlicht an einem Beispiel: 


Auf einer Diskette befinden sich 100 Sätze. Aus dieser Menge 
wollen wir nun den 7Bten Satz lesen. Bei einer sequentiellen 
Datei hieße das, erst alle 77 davor liegenden Sätze zu lesen, um 
dann endlich an den 78ten Satz zu gelangen. Was das für ein 
Zeitaufwand bedeutet, können Sie sich wohl vorstellen- Denken wir 
dann noch daran, mehrere Sätze zu vergleichen oder zu sortieren, 
so wäre dies für einen schnellen Programmablauf völlig 
ungeeignet. Zu diesem Schluß kamen auch die verschiedenen 
Computerhersteller. Das Ergebnis ist die relative Datei. Dort 
kann ich nun einfach sagen: Lese den 78ten Satz. Der Computer 
berechnet nun selbstständig, um wieviele Sätze vor— oder 
zurückgeblättert werden muß, um diesen Satz zu lesen. Durch diese 
revolutionäre Erfindung, war es nun möglich den Zeitfaktor, um 
einen bestimmten Satz zu lesen, auf ein Minimum zu reduzieren- 


Beim VC-20 gibt es allerdings ein paar Sachen, auf die bei der 
Programmierung von Dateien zu achten ist. So verfügt das BASIC 
des VC-20, im Unterschied zu dem BASIC-4 der großen Commodore 
Computer, nicht über Befehle, die es ermöglichen relative Dateien 
zu verwalten- 

G1ücklicherweise gibt es ein paar Tricks, die es ermöglichen, 
trotzdem mit relativen Dateien zu arbeiten- So verfügt ja 
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bekanntlich die Floppy über ein eigenes Batriebssystem. Das 
Problem besteht eigentlich nur darin. Befehle, die die relativen 
^^teien verwalten, dem Floppy mitzuteilen. Dazu dient aber der 
Kommando (oder Befehls-) Kanal des VC-20 (Kanal 15). 

Zunächst wird die Datei, von der Daten gelesen oder in die Daten 
geschrieben werden sollen, geöffnet. Von BASIC sieht das so aus: 

□PEN Datei#, Geräte#, Kanal#, "NAME,L, "+CHRit (Länge) 

oder an einem konkreten Beispiel (s. Programm): 

□PEN 1,8,1, " 0: ARTDAT, L, " +CHR<f (64) 

Dieser Befehl öffnet die Datei 1, mit dem Namen "ARTDAT", der 
enummer 8 (Floppy) und dem Kanal 1. Das Wichtigste an diesem 
Befehl ist aber die Länge der Datei. Sie ist in unserem Beispiel 
mit 64 angegeben. Anders als bei den sequentiellen Dateien, so 
ist es bei relativen datei, äußerst wichtig die Länge der Datei 
mit anzugeben. Durch Angabe dieser Länge, ist es dem Computer 
erst möglich, die relativen "Sprünge" zu den Sätzen zu berechnen. 
Bei der sequentiellen Datei kann diese Angabe entfallen, da hier 
die Länge unerheblich ist. 

Nun weiß die Floppy 1540/1541, daß eine relative Datei mit der 
Länge 64 und dem Namen "ARTDAT" angelegt werden soll. Wenn wir 
nun einen bestimmten Datensatz schreiben wollen, so müssen wir 
nun noch die Stelle angeben an der der Satz gespeichert werden 
soll. Von BASIC aus könnte die Position des Zeigers so aussehen: 

PRINT# Kana 1 #, "P" ; CHR$ (Kanal #) ; CHR^ (Satz#-l ow) ; CHR:^ (Satz#-hi gh) 

Stellen wir uns nun vor, daß wir in den 78ten Satz schreiben 
wollen. So müssen wir nun zunächst Satz#-low und Satz#-high 
^®*^o*-hnen. Dies geschieht mit folgender Formel: 

HB==INT (RN/256) : LB=RN-HB*256 
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oder an dem konkreten Beispiel: 

HB=INT(78/256): LB=78-HB*256 

und als Ergebnis für Satz#-low (LB) und Satz#-high (HB): 

HB=0: LB=78 

Eingesetzt in unsere obige Formel zum Positionieren der Zeiger 
lautet demanch so: 


PRINT#1,"P‘';CHR$(1) ;CHR^(0) ;CHR^(78) 


nun steht der Zeiger an der richtigen Stelle und wir können den 
Satz schreiben. Dieses geschieht mit dem PRINT#-Befehl. Alle 
Variablen, die in die Datei gespeichert werden sollen, müssen mit 
einem CHR$(13), also einem RETURN, voneinander getrennt werden. 
Den letzten RETURN setzt dann der Computer selber. Siehe hierzu 
die Zeilen 10070-10080 des Beipsielprogrammes. 

Das Lesen eines Satzes geschieht nach dem selben Muster- Zunächst 
wird der Zeiger positioniert, dann die Routine zum Lesen 
aufgerufen. Hier werden dann jweils die Variablen, die beim 
Schreiben durch RETURNs getrennt wurden, einzelnen eingelesen. 
Der VC—20 hält hierfür den INPUT#—Befehl bereit- In unserem 
Beispiel erfolgt das Lesen in den Zeilen 10030 bis 10060. 


Eine weitere wichtige Einrichtung für die Benutzung der Dateien, 
und generell der Floppy, ist der Fehlerkanal- Wenn Sie einen 
Datei geöffnet haben, sollten Sie immer zuerst den Fehlerkanal 
abfragen, um so rechtzeitig festzustellen, ob alles in Ordung 
ist (s. Zeilen 12000-12050). 


Mit Hilfe dieser Routinen ist 
Dateien zu erzeugen und zu 
Beispiel Ihre eigene 


es nun möglich, beliebige, relative 
verarbeiten. Sie können nun zum 
Adressenverwaltung, oder Ihre 
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Schal 1plattensammlung, verwalten. Nehmen Sie dazu einfach unser 
Programm als Anregung. Wenn Sie dieses Programm in seinen 
Grundzügen verstanden haben, dann wird Ihnen auch eine eigene 
Entwicklung keine Schwierigkeiten mehr bereiten. Die 
Dateiverwaltung zählt twar nicht unbedingt zu den einfachsten, 
aber auf jeden Fall zu den interessantesten Aufagen in der 
Programmierung. 

Nun aber noch etwas zu unserem Programm. Nachdem Sie es durch RUN 
gestartet haben, erscheint die Frage, ob das Diskettengerät 
bereit ist. Diese Meldung wird solange erscheinen, bis Sie die 
'J'-Taste drücken. Danach werden Sie gefragt, ob Sie eine neue 
Diskette verwenden wol 1 . Neu heißt im dem Fall nicht nur 
unformatiert, sondern auch, daß noch keine Datei mit dem Namen 
ARTDAT vorhanden ist. Aber Vorsicht, die Diskette wird 
formatiert. Benutzen Sie also nicht eine Ihrer Programmdisketten. 
Wenn dieser Vorgang beendet ist, erscheint das Hauptmenü. Hier 
können Sie nun eine der 6 Möglichen Funktionen aufrufen. 

Wenn Sie einen Datensatz gestalten wollen, so denken Sie daran, 
daß die Eingabe nicht länger sein darf, als in den DATA-Zeilen 
(30-82) festgelegt ist. Diese Zeilen sind do aufgebaut, daß 
zuerst der Name und dann die Länge der Bezeichnung aufgeführt 
wird. Wollen Sie einen bereits eingegebenen Datensatz wieder 
löschen, so gehen Sie in die Routine AENDERN, und schreiben als 
Zeichen der Bezeichnung Warenart ein Klammeraffen (@ ). 
Somit wird dieser Satz als gelöscht gekennzeichnet. 

Wenn Sie in irgendeinem Unterprogramm aufgefordert werden, eine 
Artikelnummer einzugeben, so können Sie durch die Eingabe von 
"ENDE" wieder ins Haupt— oder Übermenü zurückgelangen. 

Die Zeilen 11 bis 14 stellen den heutigen Mehrwertsteuersatz dar. 
ME(1) und ME(2) sind die beiden alten Sätze von 6.5% und 137.. Die 
nächsten beiden sind die neuen Sätze von 77. und 147.. Werden Sie 
also nach dem Mehrwertsteuersatz gefragt, so geben Sie einfach 
eine 1 für 6.57., eine 2 für 137., eine 3 für 77. und eine 4 für 14% 
ein. Der Computer berechnet sich dann den korrekten 
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Mehrwetsteuersatz. 

Eine Besonderheit ist bei diesem Programm aber noch zu beachten. 
Artikelnummern, die von 800 bis 999 gehen (999 ist die größte 
mögliche Nummer), werden nicht als Artikel gewertet sondern als 
Ausgaben oder Einnahmen. So können Sie gleichzeitig zu den 
verschiedenen Artikeln auch noch Ihre Privatkonten, Bankkonten 
usw. überwachen. Die Eingabe dieser Konten erfolgt im 
Unterprogramm EINGABE DER KASSENZETTEL. Wenn die erste Eingabe, 
also der erste "Kassenzettel", genauer gesagt die Rechnung, eine 
Zahl größer 799 war, so erwartet der Computer weitere Eingaben 
dieser Art. Das heißt, daß Sie nicht abwechselnd Artikel und 
Rechnungen eingeben können, sondern diese nur jeweils getrennt. 

Außerdem ist darauf zu achten, daß bei der Arbeit mit diesem 
Programm, Drucker und Floppy immer angeschaltet sind. Haben Sie 
aber keinen Drucker, so müssen Sie das Programm umschreiben. Sie 
sehen ja an den PRINT#4-Befehlen, in welchen Zeilen eine Ausgabe 
auf dem Drucker erfolgen soll. 

Wenn Sie noch weitere Filialen oder Personen mit diesem Programm 
unterstützen wollen, so empfiehlt es sich für jede Filiale oder 
Person, eine neue Diskette anzulegen. Dann wissen Sie zu jeder 
Zeit über die finanzielle Lage bescheid. 

Wir hoffen, daß Sie mit Hilfe deises Programmes einen Einblick in 
die Datenverarbeitung, und besonders in die Datenverarbeitung mit 
relativen Dateien bekommen haben. Es sieht auf den ersten Blick 
schwieriger aus als es ist. Mit ein wenig Übung, werden auch Sie 
rasch solche Programme selbst entwerfen können. 

Noch eine Anmerkung zum Dateiverwaltungsprogramm. Bei einer 
Neuerstellung einer Diskette, beginnt nach dem letzen Zugriff auf 
die Diskette die rote LED der Floppy zu blinken. Dies ist jedoch 
kein Fehler, sondern nur eine besondere Reaktion der Floppy 
1540/1541 bei der Benutzung einer relativen Datei. 
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Wir wollen ja eine Datei mit maximal 999 Einträgen erstellen. 
Dazu haben wir mit dem Befehl 

230 OPEN 15,8,15,"N:DATENDISKETTE,VC" 

240 OPEN 1,8,3,"O:ARTDAT,L,"+CHR$(64) 

250 PRINT#1,CHR^(255); 

eine entsprechende Datei erstellt. Allerdings wird beim Schreiben 
des CHR4^(255) auf Diskette als letzter Satz ein 

RECORD NOT PRESENT 

Fehler erkannt. Dies hat jedoch keinen Einfluss auf Ihre Datei. 

Im übrigen können im Zusammenhang mit der Dateiverwaltung noch 
andere Fehlermeldungen entstehen. Dies sind unter anderem: 

RECORD NOT PRESENT 

OVERFLOW IN RECORD 

FILE TOO LARGE 

Die Bedeutung der jeweiligen Fehler können Sie im Handbuch der 
Floppy nachlesen. 
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Hier nun das oben besprochene Programm zur 
dem VC-20. 


Dateiverwaltung auf 


10 CLR 

11 ME(1)=1.065 

12 ME(2)=1.13 

13 ME(3)=1.07 

14 ME(4)=1-14 
20 FÜR 1=1 TO 7 

25 READ TD^(I),TD(I) 

27 NEXT I 

30 DATA "D ARTIKEL NR.“,3 
32 DATA "2) WARENART",20 
34 DATA "3) ANZAHL",3 
36 DATA "4) EINZELPREIS EK",7 
38 DATA "5) GESAMTPREIS EK",8 
40 DATA "6) EINZELPREIS VK",7 
42 DATA "7) GESAMTPREIS VK",8 
50 FÜR 1=1 TO 3 
52 READ TI^(I),TI(I) 

54 NEXT I 

56 DATA "1) ARTIKEL NR.",3 
58 DATA "2) WARENART",20 
60 DATA "3) MWST GRUPPE",! 

70 FÜR 1=1 TO 4 
72 READ TT^(I),TT(I) 

74 NEXT I 

76 DATA "D FILIALE NR. " , 1 
78 DATA "2) DATUM",8 
80 DATA "3) RECHNUNGS NR.",8 
82 DATA "4) BELEG NR.",8 
100 PRINT CHR^(147); 

110 PRINT "**********************" ; 
120 PRINT "*ARTIKELVERWALTUNG VC*"; 
130 PRINT "**********************"; 
140 PRINT: PRINT 
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150 PRINT "DISK BEREIT (J/N)? 

160 GET A$: IF At:="" THEN 160 
170 IF A^<>"J" THEN 160 
180 PRINT A^ 

185 PRINT 

190 OPEN 15,8,15,"10" 

195 CLÜSE 15 

200 PRINT "NEUE DISKETTE (J/N)? "; 

210 GET A:*:: IF Aif="" THEN 210 
220 IF A$<>"J" THEN 300 
222 PRINT A^ 

224 PRINT 

230 OPEN 15,8,15,"N;DATENDISKETTE,VC" 

240 OPEN 1,8,3,"0:ARTDAT,L,"+CHR^(64) 

250 PRINT#15,"P"+CHR^(3)+CHR^(231)+CHR$(3)+CHR^(1) 
260 PRINT#1,CHR^(255); 

270 RM=INT(167132/64) 

280 CLÜSE 1 

290 CLÜSE 15 

300 PRINT CHR^(147); 

310 PRINT "**********************"; 

320 PRINT "*ARTIKELVERWALTUNG VC*"; 

330 PRINT "**********************''- 
340 PRINT: PRINT 

345 PRINT " HAUPTMENU": PRINT 

350 PRINT "D EINGABE DER DATEI": PRINT 
355 PRINT "2) AENDERN DER DATEI": PRINT 
360 PRINT "3) EINGABE KASSENZ.": PRINT 
365 PRINT "4) DRUCKEN ART.-LISTE"; PRINT 
370 PRINT "5) DRUCKEN AUSWERTUNG": PRINT 
375 PRINT "6) PROGRAMMENDE": PRINT: PRINT 
380 PRINT "BITTE WAEHLEN SIE "; 

390 GET A^: IF A^="" THEN 390 

400 A=VAL(A^): IF A<1 OR A>6 THEN 390 

410 PRINT A$; 

420 FÜR 1=1 TO 1000: NEXT 

430 ON VAL(A$) GOTO 1000,2000,3000,4000,5000,6000 
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1000 OPEN 15,8,15: OPEN 8,8,8,"O:ARTDAT" 

1002 GÜSUB 12000 
1005 PRINT CHR^(147); 

1010 PRINT "**********************''; 

1020 PRINT ••*ARTIKELOERWALTUNG VC*"; 

1030 PRINT "**********************"; 

1040 PRINT: PRINT 

1050 PRINT " EINGABE DER DATEI": PRINT: PRINT 
1060 FOR 1=1 TO 3 
1065 TE«:(I)="" 

1070 PRINT Tl^d) 

1080 INPUT TE^(I) 

1090 PRINT 

1092 IF TE^(1)="ENDE" THEN 1200 

1095 IF LEN(TE^(I))>TI(I) THEN 1065 

1100 NEXT I 

1102 FOR 1=4 TO 8 

1104 TE^(I)="" 

1106 NEXT I 

1110 RN=VAL(TE^(1)) 

1120 IF RN<1 OR RN>999 THEN 1005 

1130 GOSUB 10000 

1140 GOSUB 10070 

1150 GOTO 1005 

1200 CLOSE 8 

1210 CLOSE 15 

1220 GOTO 300 

2000 OPEN 15,8,15: OPEN 8,8,8,"O:ARTDAT" 

2002 GOSUB 12000 
2005 PR I NT CHRit <147); 

2010 PRINT "**********************"; 

2020 PRINT "*ARTIKELVERWALTUNG VC*"; 

2030 PRINT "**********************"; 

2040 PRINT: PRINT 

2050 PRINT " AENDERN DER DATEI": PRINT: PRINT 
2055 TEi:(l)="" 

2060 PRINT Tlit(l) 
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2070 INPUT TE^(l) 

2080 PRINT 

2090 IF TE^(1)="ENDE" THEN 2400 
2100 IF LEN(TE$:(1) ) >TI (1) THEN 2055 
2110 RN=VAL(TE^(1)) 

2120 IF RN<1 ÜR RN>999 THEN 2005 
2130 GOBUB 10000 
2140 GÜSUB 10030 

2142 IF 0AL(TE^:(1) )<>RN THEN 2005 
2150 PRINT CHR$(147); 

2160 PRINT "***************#******"; 

2170 PRINT "»ARTIKELVERWALTUNG VC*"; 

2180 PRINT "**********************"; 

2190 PRINT: PRINT 

2200 PRINT " AENDERN DER DATEI": PRINT: PRINT 
2210 FÜR 1=1 TO 3 
2220 PRINT TI^(I) 

2230 PRINT "? ";TE$<I) 

2240 PRINT CHR^(145); 

2260 INPUT TE$(I) 

2270 PRINT 

2280 IF TE^(1)="ENDE" THEN 2400 
2290 IF LEN(TE$:(I) ) >TI (I) THEN 2250 
2300 NEXT I 
2310 RN=VAL(TE^^(1) ) 

2320 IF RN<1 ÜR RN>999 THEN 2005 

2330 GOBUB 10000 

2340 GOBUB 10070 

2350 GOTO 2005 

2400 CLOSE 4 

2410 CLOSE 8 

2420 CLOSE 15 

2430 GOTO 300 

2530 GOTO 3005 

3000 OPEN 15,8,15: OPEN 8,8,8,"O:ARTDAT" 

3001 GOBUB 12000 

3002 DV=1 
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3003 GÜSUB 8000 

3004 GÜSUB 8500 

3005 PRINT CHR$:(147); 

3010 PRINT "**********************"; 

3020 PRINT "*ARTIKELVERWALTUNG VC*"; 

3030 PRINT "**********************"; 

3040 PRINT: PRINT 

3050 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
3060 TE^(1)="" 

3070 PRINT TI^(l) 

3080 INPUT TE$(1) 

3090 PRINT 

3100 IF TE:f (1)="ENDE" THEN 3700 
3110 IF LEN(TE^(1))>TI(1) THEN 3060 
3120 RN=VAL(TE^(1)) 

3130 IF RN<1 ÜR RN>999 THEN 3005 
3132 IF DW=1 AND RN>799 THEN 3005 
3134 IF DW=2 AND RN<800 THEN 3000 
3140 GÜSUB 10000 
3150 GÜSUB 10030 

3152 IF VAL(TE$(1))<>RN THEN 3005 
3160 PRINT CHR$(147); 

3170 PRINT "**********************"; 

3180 PRINT "*ARTIKELVERWALTUNG VC*"; 

3190 PRINT "**********************"; 

3200 PRINT: PRINT 

3210 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
3212 FÜR 1=1 TO 5 
3214 TH$(I)=TE2f (1+3) 

3216 NEXT I 
3220 FÜR 1=1 TO 2 
3230 PRINT TD^(I) 

3235 PRINT "? ";TE$(I) 

3237 TX$ (I)=TE5:( I) 

3240 PRINT 

3250 NEXT I 

3255 TX^(3)=TE$(3) 
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3260 PRINT TD^(3) 

3270 INPUT TXir(4) 

3275 TE^ (4)=TX4:(4) 

3280 PRINT 

3285 IF VAL(TEir (4) )<-999 ÜR VAL (TE^ (4) ) >999 THEN 3260 
3287 IF LEN(TE4:(4) ) >TD(3) THEN 3260 
3290 PRINT TD^(4) 

3295 TE^(5)=*‘" 

3300 INPUT TX$(5) 

3305 TE4:(5)=TX^(5) 

3310 PRINT 

3315 IF LEN(TE^(5))>TD(4) THEN 3290 
3320 PRINT TD^{6) 

3325 TE^(7)="" 

3330 INPUT TX^(7) 

3335 TE^(7)=TX$(7) 

3340 PRINT 

3345 IF LEN(TE$(7))>TD(6) THEN 3320 

3350 TH=VAL(TE^(5))*VAL(TE^(4)) 

3351 TX^(6)=STR^(TH) 

3352 TH=TH+VAL(TH^(3)) 

3355 TE^(6)=STR$(TH) 

3360 TH=VAL(TE^(7))*VAL(TE^(4)) 

3361 TX^(8)=STR^(TH) 

3362 TH=TH+VAL(TH^(5)) 

3365 TE$(8)=STR$(TH) 

3370 TH=VAL(TE^(5)) 

3371 IF VAL (TE^ (4) XI THEN TH=-TH 

3372 TH=TH+VAL(TH$(2)) 

3375 TE^(5)=:STR^(TH) 

3380 TH=VAL(TE$(7)) 

3381 IF VAL(TE^(4) XI THEN TH=-TH 

3382 TH=TH+VAL(TH^(4)) 

3385 TE$(7)=STR$(TH) 

3390 TH=VAL(TE^ < 4)) 

3392 TH=TH+VAL(TH^(1)) 

3395 TE4:(4)=STR^ (TH) 
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3460 RN=VAL(TEir(l) ) 

3470 GÜSUB 10000 
3480 GOSUB 10070 

3485 FOR 1=1 TO 8 

3486 TE«:(I)=TX^(I) 

3487 TX^(I)="" 

3488 NEXT I 

3490 IF DW=0 AND VAL(TE^(1))<800 THEN DW=1: GOSUB 5360: GOTO 3510 
3500 IF DW=0 AND VAL(TE^(1))>799 THEN DW=2: GOSUB 7005: GOTO 3520 
3510 IF DW=1 THEN GOSUB 5520; GOTO 3530 
3520 IF DW=2 THEN GOSUB 7120 
3530 GOTO 3005 

3700 IF DW=1 THEN GOSUB 5590; GOTO 3800 
3710 IF DW=2 THEN GOSUB 7190 
3800 DW=0; DV=0 

3999 CLOSE 4; CLOSE 8: CLOSE 15; GOTO 300 

4000 OPEN 15,8,15: OPEN 8,8,8,"O;ARTDAT" 

4002 GOSUB 12000 

4005 PRINT CHRit(147); 

4010 PRINT "**********************"; 

4020 PRINT ARTIKELVERWALTUNG VC*"; 

4030 PRINT "**********************"; 

4040 PRINT: PRINT 

4050 PRINT " DRUCKEN ARTIKELLISTE": PRINT: PRINT 
4060 FOR 1=1 TO 2 
4070 TE$(I)="" 

4080 PRINT TTiTd) 

4090 INPUT TE^(I) 

4100 PRINT 

4110 IF TE^(1)="ENDE" THEN 4999 
4120 IF LEN(TE$:(I) ) >TT(I) THEN 4070 
4130 NEXT I 

4135 TE^(3)="": TE^(4)="" 

4140 IF DV=1 THEN RETURN 
4200 PRINT CHR^(147); 

4210 PRINT "**********************"; 

4220 PRINT "»ARTIKELVERWALTUNG VC*"; 
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4230 PRINT '•**********************"; 

4240 PRINT: PRINT 

4250 PRINT " DRUCKEN ARTIKELLISTE": PRINT: PRINT 
4260 PRINT "DRUCKER BEREIT (J/N)?"; 

4270 GET A$: IF A^="" THEN 4270 
4280 IF A$<>"J" THEN 4270 
4290 PRINT A^ 

4300 OPEN 4,4 

4310 PRINT#4,"FILIALE NR. ";TE^(1); 

4330 PRINT#4,CHR^(16);"20";"DATUM ";TE^(2); 

4340 PRINT#4,CHR^(16) ; "40"; "RECHNUNGS NR. ";TE«:(3) 
4345 PRINT#4,CHR^(16);"60";"BELEG NR. ";TE$(4) 

4350 PRINT#4 

4360 PRINT#4,"ARTIKEL NR."; 

4375 PR I NT#4, CHRiT (16) ; " 20 " ; " WARENART " ; 

4385 PRINT#4,CHR^(16);"60";"MWST GRUPPE" 

4390 PRINT#4,"-"; 

4405 PRINT#4,CHR:f (16) ; "20"; "- 

4415 PRINT#4,CHR^- (16) ; "60"; "-" 

4420 FÜR RN=1 TO 999 
4430 GOSUB 10000 
4440 GÜSUB 10030 

4442 IF VAL(TEir (1) )<>RN THEN 4480 
4444 IF LEFT$(TE^(2),l)="g)" THEN 4480 
4450 PRINT#4,TE^(1); 

4460 PRINT#4,CHR^(16);"20";TE^(2); 

4470 PRINT#4,CHRi:(16) ; "60";TE$(3) 

4480 NEXT RN 

4490 PRINT#4: PRINT#4: PRINT#4 

4999 CLÜSE 4: CLÜSE 8: CLÜSE 15: GOTO 300 

5000 ÜPEN 15,8,15: OPEN 8,8,8,"O;ARTDAT" 

5002 GOSUB 12000 

5005 PRINT CHRS(147); 

5010 PRINT ''**********************"; 

5020 PRINT "*ARTIKELVERWALTUNG VC*"; 

5030 PRINT "**********************"; 

5040 PRINT: PRINT 
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5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5125 

5130 

5140 

5200 

5210 

5220 

5230 

5240 

5250 

5252 

5255 

5256 

5257 

5260 

5270 

5280 

5290 

5300 

5310 

5330 

5335 

5340 

5345 

5350 

5355 

5360 

5370 

5375 

5380 


PRINT " DRUCKEN AUSWERTUNG“: PRINT: PRINT 
FÜR 1=1 Tü 4 
TEi: (1)=“ " 

PRINT TT^(I) 

INPUT TE^d) 

PRINT 

IF TE^(1)=“ENDE“ THEN 5999 
IF LEN(TE^(I))>TT(I) THEN 5070 
IF DV=0 AND 1=2 THEN 1=4 
NEXT I 

IF DV=1 THEN RETURN 
PRINT CHR$(147); 

PRINT “**********************'■; 

PRINT "^ARTIKELVERWALTUNG VC*“; 

PR I NT “ ********************** '•; 

PRINT: PRINT 

PRINT “ DRUCKEN AUSWERTUNG": PRINT: PRINT 

SA=0: SE=0: SG=0: SF=0: SH=0 

FÜR 1=1 Tü 4 

M1(I)=0: M2(I)=0 

NEXT I 

PRINT “DRUCKER BEREIT (J/N)?“; 

GET A:^: IF A^=““ THEN 5270 
IF A:$<>“J" THEN 5270 
PRINT A^ 

OPEN 4,4 

PRINT#4,“FILIALE NR. “;TE^(1); 

PRINT#4,CHR^(16);“20“;“DATUM “;TE^(2); 

IF DV=0 THEN PRINT#4: GOTO 5350 
PRINT#4,CHRit(16) ; “40“; “RECHNUNGS NR. ";TEif(3); 
PRINT#4,CHR^(16) ; “60“; “BELEG NR. “;TE^:(4) 
PRINT#4 

IF DV=1 THEN RETURN 
PRINT#4,“ART. NR.“; 

PRINT#4,CHR^(16);“10“;“ANZ. “; 

PRINT#4, CHR^ (16);“15";“WARENART“; 

PRINT#4,CHR^(16);“40“;"EINZ. EK“; 
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5390 PRINT#4,CHR:^ < 16) ; "50“; "GESA. EK"; 

5400 PRINT#4,CHR^(16);"60";"EINZ. VK"; 

5410 PRINT#4,CHR^(16);"70";"GESA. VK" 

5420 PRINT#4,"-"; 

5425 PRINT#4,CHR$(16);"10";"-"; 

5430 PRINT#4,CHRi:(16) ; "15"; "-"; 

5440 PRINT#4,CHR^(16) ; "40"; "-"; 

5450 PRINT#4,CHR^(16) ; "50"; "-"; 

5460 PRINT#4,CHR^(16) ; "60"; "-"; 

5470 PRINT#4,CHR^(16) ; "70"; "-" 

5475 IF D0=1 THEN RETURN 
5480 FÜR RN=1 Tü 799 
5490 GÜSUB 10000 
5500 GÜSUB 10030 

5510 IF VAL(TE4:(1) )<>RN THEN 5580 
5515 IF LEFT^(TE:^(2) ,1)="@" THEN 5580 
5520 PRINT#4,TE^(1); 

5525 PRINT#4,CHR^(16);"10";TE^(4); 

5530 PRINT#4,CHR$(16);"15";TE^(2); 

5540 PRINT#4,CHR«:(16) ; "40";TE^(5) ; 

5550 PRINT#4,CHR:f (16) ; "50";TE:$(6) ; 

5560 PRINT#4,CHR^(16);"60";TE^(7); 

5570 PRINT#4,CHR^(16);"70";TE^(8) 

5571 SA=SA+VAL(TE:$(4) ) 

5572 SE=SE+9AL(TE^(5)) 

5573 SG=SG+VAL(TE$(6)) 

5574 Ml (VAL(TE:^(3) ) )=M1 (VAL(TE^(3) ) ) + (VAL (TE^ (6) ) *ME (VAL (TE^: (3) ) ) 
-VAL(TE^(6))) 

5576 SF=SF+VAL (TE^: (7) ) 

5577 SH=SH+VAL(TE^(8)) 

5578 M2(VAL(TE^(3)))=M2(VAL(TE$(3)))+(VAL(TE^(8))-VAL(TE^(8))/ME( 
VAL(TE$(3)))) 

5579 IF DV=1 THEN RETURN 

5580 NEXT RN 

5590 PRINT#4,"-"; 

5600 PRINT#4,CHR$(16);"10";"-"; 

5605 PRINT#4,CHR^( 16) ; "15"; "-"; 
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5610 

PRINT#4,CHR:f (16) ; 

1 

1 

1 

1 

J 

Ö 

-" ; 

5620 

PRINT#4,CHR^(16); 

1 

1 

1 

1 

J 

o 

in 

9 

5630 

PRINT#4,CHR$(16); 

1 

1 

1 

1 

j 

o 

:P 


5640 

PRINT#4,CHR^(16); 

1 

1 

1 

1 

j 

b 

N 

. II 

5650 

PRINT#4,"SUMMEN:" 

5 


5660 

PRINT#4,CHR^(16); 

"09";SA; 


5670 

PRINT#4,CHR$(16); 

"39";SE; 


5680 

PRINT#4,CHR^(16); 

"49";SG; 


5690 

PRINT#4,CHR^(16); 

"59";SF; 


5700 

PRINT#4,CHR^(16); 

"69";SH 


5710 

PRINT#4: PRINT#4: 

PRINT#4 


5720 

PRINT#4,"MWST. EK 

Ul 

N 

II 

;M1(1); 

5725 

PRINT#4,CHR^(16); 

"40";"MWST. 

EK 7 7. = ";M1 (3) 

5730 

PRINT#4,"MWST. EK 

13,0 7. = " 

;M1(2); 

5735 

PRINT#4,CHR$(16); 

"40";"MWST. 

EK 14 7- = ";M1 (4) 

5740 

PRINT#4,"MWST. VK 

II 

in 

>0 

;M2(1); 

5745 

PRINT#4,CHR^(16); 

"40";"MWST. 

VK 7 7. = ";M2(3) 

5750 

PRINT#4,"MWST. VK 

13,0 7. = " 

;M2(2); 

5755 

PRINT#4,CHR$(16); 

"40";"MWST. 

VK 14 7. = ";M2(4) 

5756 

PRINT#4: PRINT#4: 

PRINT#4 


5760 

PRINT#4,"GESAMT EK. = ";SG+Ml(1)+M1(2)+M1(3)+M1 

5770 

PRINT#4,"GESAMT VK. = ";SH-M2(1)-M2(2)-M2(3)-M2 

5775 

PRINT#4: PRINT#4: 

PRINT#4 


5777 

IF DV=1 THEN RETURN 


5780 

GÜSUB 7000 



5999 

CLÜSE 4: CLÜSE 8: 

CLÜSE 15: 

GÜTÜ 300 

6000 

CLÜSE 4: CLÜSE 8: 

CLÜSE 15 


6010 

PRINT CHR^(147); 



6020 

END 



7000 

S1=0: S2=0 



7005 

PRINT#4,"ART- NR.' 

5 


7010 

PRINT#4,CHR4:(16) ; ' 

"15";"ART"; 


7020 

PRINT#4,CHR^(16);' 

"40";"AUSGABEN"; 

7030 

PRINT#4,CHR^(16);' 

"60";"EINNAHMEN" 

7040 

PRINT#4, "-■ 

5 


7050 

PRINT#4,CHR4f (16) ; ' 

"15";"-"; 


7060 

PRINT#4,CHR^( 16) ;' 

1 

1 

1 

1 

j 

O 

9 
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7070 PRINT#4,CHR^:(16) ; "60"; "-" 

7075 IF DV=1 THEN RETURN 
7080 FÜR RN=800 TO 999 
7090 GGSUB 10000 
7100 GOSUB 10030 

7110 IF VAL(TE^(1))<>RN THEN 7180 
7120 PRINT#4,TE$(1); 

7130 PRINT#4,CHR^(16);"15";TE^(2); 

7140 PRINT#4,CHR^(16);"40";TE$(5); 

7150 PRINT#4,CHR:$(16) ; "60";TE^ (7) 

7160 S1=S1+VAL(TE$(5)) 

7170 S2=S2+VAL (TE^^ (7) ) 

7171 M2(VAL<TE^(3)))=M2(VAL(TE^(3)))+(VAL(TE^(7))-VAL(TE^(7))/ME( 
VAL<TE^(3)))) 

7172 Ml(VAL<TE$(3)))=M1(VAL(TE$(3)))+(VAL(TE^(5))-VAL(TE^(5>)/ME( 
VAL(TE$(3)))) 

7175 IF DV=1 THEN RETURN 
7180 NEXT RN 


7190 

PRINT#4, "- 

*' ? 



7200 

7210 

PRINT#4,CHR^(16) ; 

PRINT#4,CHR^(16) ; 

"15";" - "; 

" Ar» . ••_ 



, -- 

5 


7220 

PRINT#4,CHR^(16); 

■ 1 . II _ 

,, 


oL» 



7230 

PRINT#4,"SUMMEN:" 

5 



7240 

PRINT#4,CHR^(16); 

"39";S1; 



7250 

PRINT#4,CHR^(16); 

"59";S2 



7260 

PRINT#4: PRINT#4: 

PRINT#4 



7270 

PRINT#4,"MWST. EK 

6,5 7. = " 

;M1(1) ; 


7280 

PRINT#4,CHRi:(16) ; 

"40";"MWST. 

m 

Nl 

II 

";M1(3) 

7290 

PRINT#4,"MWST. EK 

II 

O 

;M1(2) ; 


7300 

PRINT#4,CHR^:(16) ; 

"40";"MWST. 

EK 14 7. = 

";M1(4) 

7310 

PRINT#4,"MWST. VK 

6,5 7. = " 

; M2 ( 1 ); 


7320 

PRINT#4,CHR^(16) ; 

"40";"MWST. 

VK 7 7. = 

";M2(3) 

7330 

PRINT#4,"MWST. VK 

13,0 7. = " 

;M2(2) ; 


7340 

PRINT#4,CHR^(16) ; 

"40";"MWST. 

VK 14 7. = 

";M2(4) 

7350 

PRINT#4: PRINT#4: 

PRINT#4 




7360 PRINT#4,"AUSGABEN = ";S1~M1(1)-Ml(2)-Ml(3)-Ml(4) 
7370 PRINT#4,"EINNAHMEN= ";B2-M2(1)-M2(2)-M2(3)-M2(4) 
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7380 PRINT#4: PRINT#4: PRINT#4 

7999 RETURN 

8000 PRINT CHR^(147); 

8010 PRINT ''**********************'•; 

8020 PRINT "»ARTIKELVERWALTUNG VC*"; 

8030 PRINT "**********************"; 

8040 PRINT: PRINT 

8050 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
8060 SA=0: SE=0: SG=0: SF=0: SH=0: S1=0: S2=0 
8070 FOR 1=1 TO 4 
8072 Ml(I)=0: M2(I)=0 
8074 NEXT I 

8080 PRINT "DRUCKER BEREIT (J/N)?"; 

8090 GET A^: IF A^="" THEN 8090 
8100 IF A<:<>"J" THEN 8090 
8110 PRINT A^ 

8120 OPEN 4,4 

8130 RETURN 

8500 PRINT CHR^(147); 

8510 PRINT "**********************"; 

8520 PRINT "*ARTIKELVERWALTUNG VC*"; 

8530 PRINT "**********************"; 

8540 PRINT: PRINT 

8550 PRINT " EINGABE KASSENZETTEL": PRINT: PRINT 
8560 GGSUB 5060: GÜSUB 5310: RETURN 
10000 HB=INT(RN/256); LB=RN-HB*256 

10010 PR I NT# 15, " P " +CHR$ (8) +CHR4: (LB) +CHR^ <HB) +CHR^ (1) 

10015 GÜSUB 12000 
10020 RETURN 

10030 INPUT#a,TE$ (1) ,TE^(2) ,TE$(3) ,TEir(4) ,TE^ (5) ,TE^:<6) ,TE^ (7) ,TE$:(8) 
10060 RETURN 

10070 TE$=TE$: (1) +CHR^ (13) +TE^ (2) -hCHR$ (13) +TE^: (3) +CHR:f (13) +TE^: (4) +CHR^ (13 

10072 TE^=TE$:+TE^ (5) +CHR^: (13) +TE^ (6) +CHR^ (13) +TE^: (7) +CHR^ (13) +TE^^ (8) 
10080 PRINT#8,TE^ 

10110 RETURN 

12000 INPUT#15,X,X$:,Y$,Z^: 

12010 IF X=0 ÜR X=50 THEN RETURN 
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12020 PRINT "FEHLER: 
12030 CLOSE 8 
12035 CLOSE 15 
12040 FOR 1=1 TO 6000 
12055 NEXT I 
12060 GOTO 100 


Dieses Programm verdeutlicht alle Teile, die in jeder 
Datei Verwaltung enthalten sind. Es wird sowohl mit einer gewissen 
Bildschirmmaske gearbeitet, als auch die die Benutzung der 
relativen Datei auf dem VC—20 und der Floppy 1540/1541 
demonstriert. Da jeder Anwender andere Probleme hat, die mit 
derartigen Programmen gelöst werden können, haben wir an der 
Stelle nur ein konkretes Beispiel von vielen zeigen können. Der 
geübte Programmierer hat aber sicherlich keine Schwierigkeiten 
dieses Programm so umzuschreiben, daß es auch seine Aufgaben 
lösen kann. 
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Und wie geht's sequentiell ? 


Wo Bie nun einen Eindruck von dem bekommen haben, wie man 
relative Dateien verarbeiten kann, sollte an dieser Stelle auch 
noch kurz au-f die sequentielle Datei eingegangen werden. 

Eine einfache Routine zum Schreiben von Daten auf Kassette könnte 
folgendermaßen aussehen: 

10 REM **************************************** 

20 REM SCHREIBEN VON NAME UND VORNAME AUF BAND 

30 REM VERSION FUER DATASETTE / VC-20 

40 REM **************************************** 

50 PRINT CHR^(147): REM BILDSCHIRM LOESCHEN 
52 PRINT "OEFFNEN DER DATEI" 

54 PRINT 

56 OPEN 1,1,1,"VC-20 DATEI" 

60 INPUT "NAME : ";NA^ 

70 INPUT "VORNAME : ";VN^ 

80 PRINT 

90 PRINT "SCHREIBEN - NAME = ";NA^ 

100 PRINT " - VORNAME = "; VN:f 

110 PRINT 

120 PRINT#1,NA$ 

130 PRINT#1,VN^: 

140 PRINT 

150 INPUT "WEITER (J/N) ";JN^: 

155 PRINT 

160 IF JN^="J" THEN 60 

170 IF JN:^="N" THEN 200 

180 PRINT "FALSCHE EINGABE !" 

190 GOTO 140 
200 CLOSE 1 
210 END 

Entsprechend lassen sich selbstverständlich auch Daten lesen und 
ändern. 
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7.2 Eine andere Methode Direktzugri-f-f 


Diese Art des Zugriffs auf Daten und Diskette wird leider oft 

völlig vernachlässigt- Zwar ist sie auch sehr kompliziert und 

aufwendig, hat aber auch einige sehr interessante Aspekte. Was 
läßt sich nun mit dem Direktzugriff alles verwirklichen ? 

1. ) Der Zugriff auf Dateien — Random—Dateien 

Diese Methode hat einiges mit der sequentiellen Dateiverwaltung 

zu tun, ohne aber deren Nachteile zu haben, und einiges mit der 

relativen Dateiverwaltung. 

2. ) Der Zugriff auf einzelne Spuren der Diskette 

Mit diesem Zugriff stehen Ihnen Möglichkeiten zur Verfügung, an 
die Sie bisher noch gar nicht dachten und deren Zweck Sie 
vielleicht noch gar nicht einsehen. Mehr dazu noch später. 

1- Random-Dateien 

Im Unterschied zu den sequentiellen und relativen Dateien, ist 
hier der einzelne Block immer 256 Bytes lang - auf einer Diskette 
gehen insgesamt 664 solcher Blöcke- Trotzdem können Sie auch 
kleinere Datensätze abspeichern- Es ist beispielsweise denkbar, 
daß Sie in einen Block insgesamt 4 Datensätze a' 64 Bytes Länge 
speichern. Sie müssen dann nur darauf achten, daß Sie innerhalb 
eines solchen Blocks auch genau auf d.en Satz zugreifen, den Sie 
tatsächlich verarbeiten wollen. Sie müssen zunächst eine 
sequentielle Datei öffnen, um dort die Spuren zu vermerken, in 
denen Sie die Datensätze gespeichert haben. Insgesamt benötigen 
Sie also 3 Dateien: 

1. ) sequentielle Datei für die Zeiger 

2. ) Kommando-Datei 

3. ) Daten-Datei zur direkten Speicherung 
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10 OPEN 4,8,4,"CBM 64 DATEI,S,W"; REM SEQUENT. DATEI 
20 OPEN 15,8,15: REM KÜMMANDOKANAL 
30 OPEN 5,8,5,"#": REM DATEN-DATEI 
40 TE^:="DATA BECKER GMBH" 

50 PRINT#5,TE$;",1: REM TEXT, RECORD# 

60 T=l: 8=1: REM TRACK=1, SECTÜR=1 

70 PRINT#15,"B-A:";0,T,S: REM DRIVE, TRACK, SECTOR 
80 INPUT#15,ER,NA^-,TR,BL: REM LESEN FEHLER 
90 IF ER=65 THEN T=TR: S=BL: GOTO 70 
100 PRINT#15,"B-W:";5,0,T,S: REM SCHREIBE RECORD 
110 PRINT#4,T;",";S 
120 CLOSE 5 
130 CLOSE 15 
140 CLOSE 4 
150 END 

Was macht nun dieses Programm ? Zunächst werden die 3 notwendigen 
Dateien geöffnet, dann ein Text definiert, der direkt 
abgespeichert werden soll. Dieser Text wird in der Daten—Datei 
zunächst zwischengespeichert- Nun geht das Betriebssystem auf die 
Suche nach einem freien Block auf der Diskette. Die Suche beginnt 
bei Track 1, Sector 1, also dem Start der Diskette. Dazu wird die 
Zeile 70 benötigt. "B-A:" heißt BLOCK-ALLOCATE oder übersetzt 
soviel wie BLOCK-BELEGEN. Es wird also ein Block auf der Diskette 
gesucht, der noch nicht beschrieben wurde, bzw- wieder 
freigegeben wurde. Um zu sehen, ob der gesucht Block frei ist, 
muß der Kommandokanal gelesen werden. Hat er jedoch einen freien 
Block gefunden, so schreibt er den Text, der in der Daten-Datei 
bereit gestellt wurde, mit den gefundenen Blockadressen, auf die 
Diskette. Danach werden die Adressen noch in der sequentiellen 
Datei abgespeichert, damit der Satz später wiedergefunden wird. 
Gleichzeitig sperrt das Betriebssystem diese Spur automatisch, 
damit sie nicht unbeabsichtigt überschrieben wird. Die Dateien 
werden geschlossen und das Programm ist beendet- 
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Genauso interessant ist das Wiedereinlesen der Daten: 


10 OPEN 4,8,4,"CBM 64 DATEI" 

20 OPEN 15,8,15 
30 OPEN 5,8,5,"#" 

40 INPUT#4,T,S: REM LESEN DER ADRESSEN 

50 PRINT#15,"B-R:";5,0,T,S 

60 INPUT#5,TE^,RE 

70 PRINT#15,"B-F:";0,T,S 

80 CLÜSE 5 

90 CLOSE 4 

100 PRINT#15,"S:CBM 64 DATEI" 

110 CLOSE 15 


Und auch zu diesem Programm eine kurze Erläuterung: Nachdem die 
Dateien geöffnet wurden, wird die Adresse des Blocks eingelesen, 
in dem die eigentlichen Daten, in unserem Fall der Text, 
gespeichert sind. Nachdem dies geschehen ist, wird der Block 
durch den BLOCK—FREE Befehl wieder frei gegeben. Dies darf 
natürlich nur dann geschehen, wenn der Block gelöscht werden 
kann. Danach werden die sequentielle— und die Daten—Datei wieder 
geschlossen, die sequentielle Datei wieder gelöscht und auch der 
Kommandokanal wieder geschlossen. 


2. Der direkte Diskettenzugriff 

Dieser Zugriff ermöglicht, wie sein Name schon sagt, den direkten 
Zugriff auf beliebige Tracks und Sectoren, also das Lesen von 
Informationen direkt von Disk, ohne erst Dateien zu eröffnen. So 
können Sie zum Beispiel leicht das Inhaltsverzeichnis lesen, ohne 
den LOAD "^",8 Befehl anwenden zu müssen und damit ein Programm, 
das im Speicher steht vielleicht zu zerstören. Oder Sie können 
ein Programm auf Diskette ändern, ohne es laden zu müssen — 
selbst zerstörte Programme können unter Umständen wieder 
repariert werden. 
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Diese Zugrif*fe sind aber so gefährlich, daß wir jeden 
Programmierer davor warnen möchten, sie ohne genaues Wissen über 
den Aufbau der Diskette, der Direktory, BAM oder des Programms 
selber anzuwenden. Es können so schnell ganze Dateien und 
Disketteninhalte verloren gehen. Lesen Sie dazu also auch 
genaustens das Handbuch zur Commodore Floppy 1541 durch. Sie 
werden verstehen, daß wir an dieser Stelle nicht auch noch 
ausführlich auf den ganzen Aufbau von Direktory, BAM etc. 
eingehen können. Das würde den Umfang dieses Buches sprengen. 
Wenn Sie aber gerne mit diesen Möglichkeiten experimentieren 
möchten, so empfehlen wir mit einer Testdiskette zu arbeiten - 
dann können zumindest keine "lebenswichtigen" Daten verloren 
gehen. 


Zur Verdeutlichung der angewendeten Befehle hier noch eine Liste 
der Befehle, die direkt auf einen Block zugreifen können: 


Bezeichnung: 


Anwendung: 


BLOCK-LESEN 
BLOCK-SCHREIBEN 
BLOCK-BELEGEN 
BLOCK-FREIGEBEN 
PUFFER-ZEIGER 


"B-R:";KANALNUMMER,LAUFWERK,TRACK,BLOCK 
"B-W:";KANALNUMMER,LAUFWERK,TRACK,BLOCK 
"B-A:";LAUFWERK,TRACK,BLOCK 
"B-F:";LAUFWERK,TRACK,BLOCK 
"B-P:";KANALNUMMER,POSITION 


Dieses sind die wichtigsten 
ist gemeinsam, daß Sie 
zugreifen. So haben Sie 
gewöhnlichen Zugriffsart nie 


Befehle zum direkten Zugriff. Allen 
direkt auf den Floppy-Control1 er 
Möglichkeiten, die Sie bei einer 
haben werden. 
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7-3 Programmoverlay ohne Variablenver1ust 


Bevor wir uns der Technik des Programmover1ays zuwenden, wollen 
wir erst einmal klären, was ein üverlay ist und welche Funktion 
es hat- 

Bei größeren Programmen kommt man regelmäßig in die Verlegenheit, 
daß der Speicherplatz nicht ausreicht- Besonders bei intensiver 
Variablenbenutzung steigt das Programm sehr schnell mit einem 
'OUT OF MEMORY ERROR' aus- Was soll man dagegen tun ? Der einzig 
gangbare Weg ist die Autsplittung des Programms in mehrere Teile- 
Dies ist natürlich nur möglich, wenn das Programm aus mehreren 
voneinander unabhängigen Programmtei1en besteht- Kommerzielle 
Programme, wie z-B- Datei verwal tungen, arbeiten -fast 
ausschließlich au-f diese Art und Weise- 

Die einzelnen Teile müssen dann bei Bedar-f nachgeladen werden- 
Dies bedeutet natürlich einen gewissen Zeitverlust, der jedoch 
nicht besonders gegenüber der enormen Speicherplatzersparnis ins 
Gewicht -fällt- Natürlich ist eine solche Technik vernün-ftig nur 
mit einem Fl oppyl au-f werk realisierbar- 

Damit haben wir auch schon geklärt, was ein Programmover1ay ist 
und wozu es dient- Fassen wir noch einmal zusammen: Bei einem 
Programmoverlay ist das eigentliche Programm in mehrere 
voneinander unabhängige Programme au-f gespalten, die bei Bedarf 
von der Diskette nachgeladen werden- 

Zum Glück besitzt der VC-20 alles in seinem BASIC, was zu einem 
Programmoverlay notwendig ist- Allerdings sind dabei ein paar 
Dinge zu beachten, wenn Variablen in den nachgeladenen 
Programmteil übergeben werden sollen- Gehen wir erst einmal von 
dem einfachen Fall aus, daß keine Variablen übergeben werden 
sol1en- 

In diesem Fall ist die Sache ganz einfach- Mit dem normalen LÜAD- 
Befehl wird der zweite Programmteil nachgeladen: 

1000 LGAD"TEIL2",8 
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Dies könnte eine Zeile aus dem ersten Programm sein. Gelangt das 
Programm in diese Zeile, wird "TEIL2" von der Diskette geladen 
und automatisch gestartet. Wäre nicht der kleine Zeitverlust, der 
Benutzer würde dies gar nicht bemerken. 

Etwas schwieriger wird die Angelegenheit, wenn wir Variablen in 
den zweiten Teil übernehmen wollen. Grundsätzlich gilt, daß in 
diesem Fall das Programm auf keine Fälle länger sein darf als das 
im Speicher befindliche. Ist dies gewährleistet, so gehen keine 
Variablen verloren, da die Pointer auf das Ende des Programms 
nicht verändert werden. Diese Pointer sind gleichzeitig auch die 
Zeiger auf den Start der Variablen. Sollen mehrere Programmteile 
geladen werden, so muß von dem ersten Programm dieser Pointer 
entsprechend hochgesetzt werden. Beispiel : Das erste Programm 
hat auf der Diskette eine Länge von 10 Blöcken, das längste 
Programm hat eine Länge von 17 Blöcken. Zu Beginn des Programms 
muß nun die folgende Zeile stehen : 

1 PGKE4£»,PEEK(46)+a:CLR 

Damit wird der Zeiger auf das Ende des Programms hochgesetzt. Die 
Zahl 8 gibt dabei die Differenz zwischen der Anzahl der Blöcke 
der beiden Programme +1 an. 

Nun können Sie die einzelnen Programmteile laden, ohne 
Variablenverluste befürchten zu müssen. Achten Sie aber darauf, 
daß Zeile 1 nur einmal durchlaufen wird. 

Ein kleines Problem ergibt sich nun aber noch bei 
Stringvariablen- Die Speicherung von Stringvariablen erfolgt 
normalerweise von der oberen Speichergrenze abwärts. Zu jeder 
Variablen existiert noch zusätzlich ein Pointer, der Länge der 
Variablen und Speicherstelle beinhaltet, an der der eigentliche 
Inhalt steht- Dieser Pointer befindet sich immer im normalen 
Variablenbereich- Wo aber nun der eigentliche Inhalt steht, hängt 
davon ab, wie Sie die Variable benutzt haben. Haben Sie die 
Variable durch eine Operation bzw. Zuweisung erhalten, so steht 
sie in dem normalen Stringspeicher und es ergeben sich keine 
Probleme für das Overlay- Eine solche Operation wäre zum 
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Bei spiel: 


10 + RIGHTS(B^,2) 

Ungünstiger sieht es aus, wenn Sie den Inhalt der Variablen 
direkt zuweisen oder aus DATA—Statements herausholen, zum 
Beispiel so: 

10 A^="TEST" 

oder 

10 F0RI=1TD2:READA^(I):NEXTI 
20 DATA ••TEST1","TEST2" 

In diesem Fall werden die Inhalte der Variablen nicht noch einmal 
extra in dem normalen Stringspeicher gespeichert, sondern die 
Pointer zeigen direkt in den BASIC—Text- Dies ist aus 
ökonomischen Gründen sicher sinnvoll, hat jedoch -für unser 
□verlay die Folge, daß wir den Inhalt der Variablen verlieren- 
Zwar werden beim Overlay die Pointer nicht verändert, allerdings 
ist das BASIC-PROGRAMM, in dem die Strings stehen, nach dem Laden 
des nächsten Programmes nicht mehr vorhanden- 

Aus diesem Grunde müssen wir das Betriebssystem zwingen, die 
Variablen doch in dem normalen Stringspeicher abzulegen. Dies 
geschieht mit einem ganz einfachen Trick, wir addieren einen 
Leerstring: 

10 A$=" TEST ■' + ’••• 

oder 

1O FÜR1=1T02:READA^:A^=A^+"":NEXTI 
20 DATA "TEST1","TEST2’' 

Nun zeigen die Pointer für die Strings nicht mehr in das BASIC- 
Programm- Ihrem Overlay steht jetzt nichts mehr im Wege! 
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7.4 Textverarbeitung auf dem VC-20 


Seit es Computer gibt, gibt es immer das Verlangen, Arbeiten, die 
bisher mühsam von Hand erledigt wurden, nun mit Hilfe dieser 
elektronischen Wunderwerke zu bewältigen. Eines der aufwendigsten 
Probleme ist die Erstellung von Texten, Berichten, und alles das, 
was bisher auf einer Schreibmaschine unter großem Zeit- und 
Arbeitsaufwand geschrieben wurde. Auch der VC-20 gehört zu den 
Computern, die es erlauben, Texte am Bildschirm zu erstellen, zu 
ändern, abzuspeichern und auf einem Drucker auszugeben. Solche 
Programme gibt es zu hunderten - sie werden heute schon in sehr 
vielen Fachzeitschriften ausgedruckt. Aber was hinter der Idee 
der Textverarbeitung steht, das erklärt einem niemand genau- Wir 
wollen das an dieser Stelle ändern. 

In diesem Kapitel erhalten Sie einen Einblick hinter die Kulissen 
der Textverarbeitung. Es wird zwar kein komplettes Textprogramm 
vorgestellt, dafür erhalten Sie aber Informationen, mit denen es 
Ihnen nicht mehr ganz so schwer fallen dürfte, mit etwas Übung 
und Geduld ein eigenes, auf Ihre Belange zugeschnittenes 
Textprogramm zu erstellen. Denn dies ist oftmals das eigentliche 
Problem: Jeder möchte seine Texte in einem ganz speziellen Format 
erstellen. Der eine Anwender benötigt unbedingt eine 
Rechenfunktion während der andere noch eine Dateiverwaltung dazu 
wünscht und vieles mehr. Ein Programm solchen Ausmaßes würde den 
Umfang eines solchen Buches sprengen (und hätte schon nichts mehr 
mit TIPS und TRICKS zu tun). Aus diesem Grund wollen wir an 
dieser Stelle nur die wichtigsten Funktionen eines Textprogrammes 
vorstel1en. 

Als erstes wollen wir uns hier mit der Eingabe von verschiedenen 
Zeichen befassen. Dabei müssen wir uns zunächst für eine der 
beiden Möglichkeiten entscheiden, die das VC-20 BASIC bietet: 
INPUT oder GET- Falls wir den INPUT-Befehl verwenden wollen, was 
sicherlich die einfachste Möglichkeit ist, müssen wir uns über 
ein paar Probleme im klaren sein. Das größte Problem ist, daß wir 
die Tastatur und damit die Eingaben nicht richtig kontrollieren 
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können. Das heißt, daß alle Zeichen, die wir über die Tastatur 
aus eingeben, tatsächlich akzeptiert werden. Nun kann es aber 
passieren, daß ein Text länger als die erlaubten 88 Zeichen wird 
(per Zeile versteht sich) und der VC-20 bei der Betätigung der 
RETURN-Taste einen Fehler meldet. Oder aber wir haben noch gar 
kein Zeichen eingegeben und betätigen aus irgend einem Grund die 
DEL—Taste. Auch dies kann zu einem Fehler -Führen. - Wir sehen 
also, daß diese Form der Eingabe -für eine kom-fortable Texteingabe 
nicht in Frage kommen kann. 

Bei der Textverarbeitung kommt es darauf an, jede Eingabe über 
Tastatur kontrollieren zu können (Ist die Zeile nicht zu lang? 
Darf diese Taste überhaupt gedrückt werden? usw.). Aus diesem 
Grund verwenden wir den GET-Befehl. Ein Programm zur Eingabe 
eines Textes von maximal 99 Zeilen könnte so aussehen: 

100 PRINT CHR:$(147); 

110 DIM TE^-dOO) 

120 INPUT ZEILENNUMMER: " ; ZE 
130 PRINT 

140 IF ZE<1 ÜR ZE:>99 THEN 120 
160 PRINT ZE;": 

170 AZ=0 
180 GET BS^ 

190 IF BS^="" THEN 180 
200 IF BS^<:>CHR$(20) THEN 210 
202 IF LEN(TE$(ZE) XI THEN 180 
204 PRINT CHR^(157);" ";CHR^(157); 

206 TE^(ZE)=LEFT^ (TE$ (ZE) ,LEN (TE^: (ZE) )-l) 

208 GOTO 180 

210 IF BSi:=CHR^(17) THEN 280 
230 IF AZ=0 THEN TE^(ZE)="": AZ=1 
240 PRINT BS^; 

250 IF BS:$=CHR$(13) THEN ZE=ZE+1: GOTO 272 
260 TE^(ZE)=TEl:(ZE)+BB^ 

270 IF LEN(TE^(ZE))=B0 THEN ZE=ZE+1 
272 IF ZE=100 THEN 280 


215 


275 0GTÜ 180 
280 TE$(ZE)="!! 


ACHTUNG: Wenn Sie dieses Programm laufen lassen, sehen Sie keinen 
Cursor mehr. Dies ist eine Besonderheit des GET-Betehls und läßt 
sich durch eine kleine Änderung im Programm teilweise beheben. 
Sie müssen nur an Stelle des Cursors ein anderes Zeichen 
voranschicken. (z.B. CHR^(ie5)). Das Programm muß dann aber etwas 
geändert werden: 

185 PRINT CHR^(185);CHR$(157); 

203 PRINT " ";CHR^(157); 

240 PRINT " ";CHR^(157);BS$; 

280 PRINT " ";CHR^(157) 

290 TE^(ZE)="!!“ 

Mit diesem Programm können Sie nun, beginnend bei einer 
bestimmten Zeilennummer, Ihren Text eingeben. BS$^m steht -für 
"Buchstabe" und enthält das Zeichen, das wir über die Tastatur 
aus eingegeben haben. Zunächst wird abgefragt, ob wir die DEL— 
Taste gedrückt haben. Wenn noch kein anderes Zeichen vorher 
eingegeben wurde, geschieht nichts - man kehrt wieder zur Eingabe 
zurück. Ansonsten wird das Zeichen leer überschrieben und 
innerhalb des Satzes gelöscht- 

Wenn Sie keinen Text mehr eingeben wollen, drücken Sie einfach 
die Pfei 1-abwärts-Taste. Das Programm bricht dann an dieser 
Stelle ab. 

Nun wollen wir aber noch den gerade eingegebenen Text auf dem 
Drucker wieder ausgeben. Hierbei wollen wir nun noch 
unterscheiden, ob die Zeilennummern mit angegeben werden sollen 
oder nicht. 

300 PRINT CHR^(147); 

310 INPUT "MIT ZEILENNUMMERN "; JN:^ 

320 IF JN$="J" THEN ZD=1: GOTO 350 
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330 IF JN^="N" THEN ZD=0: GOTO 350 

340 GOTO 310 

350 OPEN 4,4 

360 FOR ZE=1 TO 100 

370 IF TE$(ZE)="!!“ THEN 385 

380 IF ZD=1 THEN PRINT#4,ZD;": "; 

382 PRINT#4,TE$(ZE) 

384 NEXT 

385 PRINT#4 
390 CLOSE 4 

Dieses sehr einfache Druckprogramm gibt den Text auf dem Drucker 
aus, der mit dem Eingabeprogramm in den Variablen TE:T-(1) bis 
TE:T(n) (n = Anzahl der Zeilen) eingegeben wurde. Damit nicht alle 
100 Zeilen gedruckt werden, falls weniger eingegeben wurden, 
druckt das Programm nur solange, bis es auf den Text "!!" in 
einer Zeile stößt. Das bedeutet, daß hier der Text zu Ende ist. 
Dieses Zeichen wurde ja vom Eingabeprogramm selber an den Schluß 
des Textes angefügt. Um nach der Eingabe eines Textes diesen auch 
gleich drucken zu können, geben Sie nun noch folgende Zeilen ein: 

292 INPUT "TEXT DRUCKEN (J/N) "; JN-f 

295 IF JN^:="N" THEN END 

Sie wollen aber sicherlich nicht jedesmal einen Text neu eingeben 
um ihn dann auszudrucken - das wäre ja überhaupt keine 
Erleichterung gegenüber der Eingabe auf Schreibmaschine. In 
diesem Fall wollen wir den Text auf eine Kassette speichern. Hier 
können wir nun sogar das sequentielle Abspeichern wählen 
(relative Abspeicherung wäre sowieso nur auf einer Floppy 
möglich), da ein Text immer sequentiell abgearbeitet werden muß. 
Hier nun die kleine Speicherroutine: 

400 OPEN 1,1,1,"TEXTDATEI" 

410 FOR ZE=1 TO 100 

420 IF TE$(ZE)="!!" THEN 460 

430 PRINT#1 ,TE4: (ZE) 
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440 NEXT ZE 
460 CLOSE 1 
470 END 

Damit auch diese Routine vom Programm aus autgeru-fen werden kann, 
müssen wir noch ein paar Zeilen einfügen und ändern: 

295 IF JN^:="N" THEN 396 

396 INPUT “TEXT SPEICHERN (J/N) ; JN$ 

397 IF JN^:='‘N'’ THEN END 

Nach dem selben Prinzip arbeitet auch die Routine zum Einlesen 
eines Textes von Kassette. Die Datei muß hierbei nur zum Lesen 
geö-f-fnet werden (s- Kapitel 5.9) und die einzelnen Zeilen müssen 
mit dem INPUT#-Be-fehl gelesen werden. 

Diese wenigen Routinen lassen schon deutlich das Gerüst einer 
Textverarbeitung erkennen. Die Routinen EINGABE, AUSGABE, 
SPEICHERN und LESEN sind Hauptbestandteil jeden Textprogrammes. 
Diese Routinen werden dann noch durch verschiedene Besonderheiten 
erweitert. Es gibt zum Beispiel bei fast jedem Textprogramm die 
Möglichkeit nach verschiedenen Wörtern oder Zeichen innerhalb des 
Textes zu suchen- Eine Routine, die diese Aufgabe erfüllt finden 
Sie in diesem Buch. Außerdem bietet ja auch das BASIC des VC-20 
schon ein paar sehr leistungsfähige Befehle zur Textein- und 
Ausgabe. So lassen sich zum Beispiel durch Befehle wie LEFT^:, 
RIGHTS und MID$: ganze Zeilen in verscheidene Teile zerlegen. 

Es ist also auch mit einfachen Mitteln schon möglich eine kleine 
Textverarbeitung zu schreiben. Noch ein Tip am Rande. Gerade bei 
solchen Programmen ist es sehr sinnvoll die verschiedenen 
Routinen in Maschinensprache zu schreiben (s. die Routine zum 
Suchen eines Textteils innerhalb eines Textes)- 
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Spiele auf dem VC-20 

7-5 Suchspiel - Goldgräber 

Da Sie mit dem VC—20 einen Computer besitzen, der hevorragende 
Grafik— und Soundmöglichkeiten besitzt, können Sie natürlich auch 
sehr gut Spiele realisieren. In diesem Kapitel wollen wir uns aus 
der großen Palette der Spiele zwei Gruppen herausgreifen, die 
beide besonders von Grafik und Sound unterstützt werden können. 
Diese beiden Gruppen sind Such- und Geschicklichkeitsspiele. Zu 
beiden Kategorien werden Sie je ein komplettes Programm bekommen, 
ausführlich dokumentiert, damit Sie es verstehen können und nach 
Ihren eigenen Wünschen verändern können- Wenden wir uns zuerst 
dem Suchspiel zu: 

In unserem Suchspiel müssen Sie in einem Bergwerk Gold suchen- 
Dazu wählen Sie zuerst die Etage, von der Sie starten (A-S) und 
dann können Sie sich mit Hilfe der Tasten I,J,K und M durch das 
Bergwerk bewegen. Doch Sie können nicht nur auf Gold stoßen, 
sondern auch einen Wassereinbruch verursachen, auf Granit stoßen 
oder in Fallgruben stürzen- Jeder Schritt im Bergwerk kostet Sie 
10 Dollar, ein Wassereinbruch 2/3, eine Fallgrube die Hälfte 
Ihres Kapitals und Granit mit der notwendigen Sprengung 250 
Dollar. Stoßen Sie auf eines der fünf Goldstücke, so wird Ihr 
Kapital je nach Größe des Goldstückes erhöht und dient Ihnen zur 
Finanzierung der weiteren Suche. Das Spiel ist zu Ende, wenn Sie 
entweder alle 5 Goldstücke gefunden haben oder Ihr Kapital 
aufgebraucht ist- 

Anhand dieser umfangreichen Beschreibung merken Sie sicher schon, 
daß dies alles nicht ganz leicht zu programmieren ist. Doch keine 
Angst, wir gehen das Programm jetzt systematisch durch- Sie 
finden auf den nächsten Seiten das Listing, dann die 
Erläuterungen dazu. 
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1 POKEe50,128 

2 IFPEEKC 36869)=240THENVI=7680:FA =38400 

3 IFPEEKC 36369) = 192THENVI=4096:FA=37888 
10 PRINT"U 

45 PRINT ■■ ftNN ‘ S LOSGEHEN< J/N) ? " 

170 GETA$: IFr»$=''”THEN189 
1S9 IFA$<>"J"THEN 170 
190 P0=P0-B-E2 
200 SC=10000:PRA=250 
1030 POKE 36879,12 

1036 POKE 36878,15 

1037 ERZ=1 

1038 HOE=0 
1040 PRINT''J 
1100 FOR X=20TO21 

1110 P0KEFA+484-22*A+><:, 1 

1111 POKE 36875,128+X 
1115 POKEVI+484-22*A+X,160 

1120 NEXTX 

1121 POKE 36875,0 

1130 A=A+l:lF R<19 THEN 1100 

1200 FOR X=0TO3 

1205 POKE 36875,128+3*X 

1210 P0KEVI+66-22*X+S,160:P0KEFA+66-22*X+S,1 

1220 I'IEXTX 

1221 POKE 36875,0 

1230 S=S+1:IFS<22THEN1200 

1700 F0RETRGE=1T019 

1710 P0KEVI+85+22*ETAGE,ETAGE 

1715 P0KEFR+85+22*ETRGE,1 

1720 NEXTETAGE 

2022 GEGE=102 

2030 A=0 

2035 FORVER=0TO16 
2040 GOSUB 10000 

2050 IFPEEKCVI+484-22*Yl+X1)<>32THEN 2040 
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2060 P0KEFA+484-22*Yl+X1,0 
2065 POKEVI+484-22*Yl+X1,GEGE 
2070 8=8+1 

2075 IF8>=0THEr'lGEGE=102: IF8 >3THEN6EGE = 7 : IF8 >8THENGEGE =78 : IF8 > 12THENGEGE= 105 

2080 NEXTVER 

2090 GOTO 20000 

10000 Y 1 = I NT( RND< 1 ) * 18 ) +0 

10010 X1 = INT<: Rr4D< O*19)+0 

10020 RETURN 

20000 POKEVI+81,160 

20050 P0KEF8+81,0 

20225 FOR VER=0TO7 

20235 FOR VER=0TO7 

20500 GET8$: IF8^='*''THEN20500 

20505 BUCH=8SC< 8:5) 

20506 IF BUCH<65 THEN 20500 

20507 IF BUCH>83 THEN 20500 
20510 FOR L=0TO6 

25000 IFL>1THENP0KEVI+81+L-1,160:P0KEF8+81+L-1,1 
25010 POKEVI+81+L,160:P0KEF8+81+L ,3 
25020 NEXTL 

30100 FOR 8UFZ=0TOBUCH-65 

30105 POKEVI+65+22*8UF2,160:P0KEF8+87+22*8UFZ,1 

30106 POKE 36874,128 

30107 FORTGH=0TO30:NEXT 
30110 POKEVI+87+22*8UFZ,160 
30112 P0KEF8+109+22*8UFZ,3 

30120 NEXT8UFZ 

30121 POKE 36874,0 
40000 REM 

40030 POKEVI+64+22*8UFZ,160:P0KEF8+86+2E*8UFZ,3 
40500 POKEVI+85+22*8UFZ,170:P0KEF8+85+22*8UFZ,3 
40510 P0=VI+84+22*8UFZ 
40520 PF=F8+84+22*8UFZ 
40530 B=1:C=0 

40600 GET85:IF85=""THEN40600 
40610 IF85= " J''THEr4B=B-l :6OTO40900 
40620 IF85="K"THENB=B+1:6OTO40900 


221 


40630 IFA*= “ I '•THENC=C- 1 :6OTO40900 
40640 IFA$="M"THEr4C=C+l : GOTO40900 
40660 GOTO 40600 
40670 REM 


40900 

IF B<-18THENB=B+1:6OTO40600 

40910 

IF B>0THENB=B-1:6OTO40600 

40920 

IF C+AUFZ<1THENC=C+1:G0T0 40600 

40930 

IF C+AUFZ>19THENC=0-1:GOTO 40600 

42005 

IFPEEKC 20+6+22*0 = 105 THEN M=105:6OTO 53000 

4201 1 

IFPEEK< P0+B+22*O=7 THENM=7:G0T0 53000 

420 12 

IFPEEK< PO+B+22*C) = 102THENM=102:GOTO 53000 

42013 

IFPEEKC P0+B+22*O=78 THENM=78 : GOTO 53000 

52000 

POKE PO+B+C 22*0,170 

5200 1 

POKE PF+B+22*C,1 

52002 

FOR U=128TO240STEP3 

52003 

POKE 36877,U:NEXTU 

52006 

POKE 36877,0 

52009 

POKE P0+B+22*C,160 

520 10 

POKE PF+B+( 22*0,1 

5201 1 

PRft=PRft+INT< RND< 1 ) *20)+-5:SC=SC-10 

52013 

FGH=INT< SO 

520 14 

IFFGH< 10000 THEN POKEVI + 16,160:POKE FA+16,1 

52015 

IFFGH< 1000 THEN POKEVI + 15,160:POKEFH+15,1 

52016 

IFF6H<100 THEN POKEVI+14,160:POKEFA+14,1 

52017 

IFFGH<10 THENSC=0:GOTO63000 

52019 

PRINT'-aaCHNKKONTO ="INTCSO 

52020 

IFGDH=5 THEN 63000 

52030 

GOTO 40600 

53000 

POKE P0+B+22*C,M:P0KEPF+B+22*C,1 

53010 

IF M=7THEN 60000 

53020 

IF M=102 THEN61000 

53030 

IF M=105 THEN 62500 

53040 

IF M=78 THEN 61500 

60000 

REM 

60001 

GDH=6DH+1 

600 10 

FOR JK=0TO200 

60015 

UNZ = INTC RNDC 1 :> *6 ) +3 

60020 

POKE 36875,INTCRND< 1)* 128) + 128:NEXTJK 

60030 

POKE 36875,0 

60040 

POKE PÜ+B+22*C,160:POKE PF+B+22*C,1 
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60050 

SC=SC+UNZ*PRA 

60060 

GOTO 52000 

60900 

REM 

61000 

FOR WA=0TO19-AUFZ-C 

61010 

FOR UE=0TO18 

61011 

PED=PEEKi: FA+484+WE-22*UJA)AND15 

61014 

IF PED=1THEN61020 

61016 

GOTO 61030 

61020 

P0KEFA+484+UE-22*UIA,6 

61030 

POKE 36877,128+4*UiA 

61040 

NEXT l/JE 

61060 

NEXT UlA 

61061 

POKE P0+B+22*C,160:POKEPF+B+22*C,6 

61070 

POKE 36877,0 

61080 

SC=SC/'3: 6OTO52000 

61500 

REM 

61520 

FOR DF=200 TO140 STEP-1 

61525 

FORTHN=0TO15:NEXT 

61530 

POKE 36876,DF:NEXTDF 

61540 

SC=SC/2 

61545 

IF C+AUFZ<19 THEN POKE P0+B+22*C,160:P0KEPF+B+22*C,1 

61546 

IF C+AUFZ=19 THEN POKE P0+B+22*C,160:POKEPF+B+22*C,1:POKE 36876,0:GOTO 520 


00 


61549 

POKE 36876,0 

61550 

C=C+1:G0T0 52000 

62000 

GOTO 52000 

62500 

REM 

62505 

I 

II 

62510 

FOR HN=128TO240STEPKH 

62520 

POKE 36877,HN:NEXTHN 

62521 

KH=KH+1 

62525 

IF KH<9THEN62510 

62530 

POKE P0+B+2E*C,160:POKEPF+B+22*C,1 

62540 

SC=SC-250 


62550 GOTO 52000 

63000 PR INT"J 

63010 POKE 36879,25 

63020 PR I NT "■IBHGUMISPI ELENDE " 

63030 PRINT"anBSIE HABEN AUF IHREM KONTO < " INTC SC ) " >DOLLAR . " 
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Damit das Programm auf allen Ausbaustufen Ihres VC—20 läuft, wird 
in den Zeilen 2 und 3 bestimmt, wo Video- und FarbRAM liegen. Bis 
Zeile 2090 wird das Spiel initialisiert. Dabei wird zuerst bis 
Zeile 2022 der Bildschirm initialsiert und bis Zeile 2090 werden 
Gold, Granit, Wassereinbrüche und Fallgruben versteckt. In Zeile 
20500 wird dann die Startetage abgefragt und von Zeile 20510 bis 
30120 gesetzt. In Zeile 40600 wird die Bewegung abgefragt. In den 
Zeilen 40610 bis 40660 wird auf eine gültige Abfrage geprüft. In 
den Zeilen 40900 bis 40930 wird überprüft, ob Sie das Bergwerk 
auch nicht verlassen. Der Test auf einen Fund findet in den 
Zeilen 42005 bis 42013 statt. Hat kein Fund stattgefunden, wird 
die neue Position in den Zeilen 52000 bis 52010 gesetzt. 
Anschließend wird Ihr Kapital vermindert und ausgedruckt. Wenn 
Sie noch nicht alle fünf Goldstücke gefunden haben (Zeile 
52020),wird in Zeile 52030 wieder zurückverzweigt und ein neuer 
Abfragezyklus beginnt. In den Zeilen ab 53000 werden die vier 
möglichen Funde behandelt. Zuerst wird in den Zeilen 60000 bis 
60060 der Goldfund ausgeführt. Dabei werden die Geräusche 
ausgeben und der Kapitalbetrag erhöht. In den Zeilen 60900 bis 
61080 wird der Wassereinbruch behandelt. Die Zeilen 61500 bis 
62000 bearbeiten die Auswirkungen eines Sturzes in eine 
Fallgrube, die Zeilen 62500 bis 62550 bearbeiten die Ausführung 
einer Sprengung. In den letzten Zeilen ab 63000 schließlich wird 
die Meldung über das Spielende ausgegben und der gewonnene Betrag 
ausgegeben. 
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7-6 Geschicklichkeitsspiel 


STARSHOOTER 


In dem Spiel dieses Kapitels wird kaum Strategie verlangt¬ 
wichtig ist hier Ihre Geschicklichkeit im Umgang mit der 
Tastatur- Worum geht es nun? Auf dem Bildschirm erscheinen 20 
zufällig verteilte Sterne- Ihre Aufgabe ist es nun, mit Hilfe 
eines Raumschiffes die Sterne abzuschießen- Das Problem ist aber, 
daß Sie Ihr Schiff nicht stoppen können und daß immer wieder neue 
Sterne entstehen. Das Spiel ist zuende, wenn der Bildschirm 
sauber ist, d-h- alle Sterne sind verschwunden oder Sie mit einem 
der Sterne kollidieren sollten- Wie sieht nun der Aufbau eines 
solchen Spieles grundsätzlich aus? 

Wir unterscheiden wieder zwischen zwei Hauptteilen, der 
Initialisierung und dem eigentlichen Spiel teil. Bei der 
Initialisierung haben wir vier Aufgaben: 

1) Verlegen des Charactergenerators und Erzeugen der Spielfigur 
(Raumschiff) 

2) Initialisieren des Bildschirms (Setzen der Sterne und der 
Farben) 

3) Erzeugen der zufälligen Startposition 

4) Erzeugen der zufälligen Bewegungsrichtung 

Schauen Sie sich das Listing auf der übernächsten Seite an. In 
Zeile 1 setzen wir den für BASIC verfügbaren Speicherplatz 
herunter und kopieren einen Teil des Charactergenerators in den 
geschützten Bereich- In Zeile 20 wird das Raumschiff erzeugt. Da 
wir vier verschiedene Bewegungsrichtungen haben und unser 
Raumschiff nicht rückwärts fliegen soll, schaffen wir vier 
Raumschiffe, die sich nur durch die Lage auf dem Bildschirm 
unterscheiden- Dabei gilt folgendes für die Bewegung: 
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1 : Das Raumschiff fliegt nach rechts 

2 : Das Raumschiff fliegt nach unten 

3 : Das Raumschiff fliegt nach links 

4 : Das Raumschiff fliegt nach oben 

In Zeile 40 beginnt die Initialisierung des Bildschirms- Der 
Bildschirm wird gelöscht und das FarbRAM initialisiert- Ab Zeile 
60 werden die Sterne erzeugt- Die Abfrage in Zeile 90 benirkt, 
daß genau 20 Sterne erzeugt werden. In Zeile 100 werden die 
zufällige Startposition und in Zeile 110 die Bewegungsrichtung 
festgelegt- Dann wird das Raumschiff auf den Bildschirm gebracht. 
Beachten Sie, daß die Variable R die Richtung anzeigt und 
gleichzeitig das richtigliegende Raumschiff auswählt. 

Wenden wir uns nun dem eigentlichen Spielteil zu. Was haben wir 
zu tun? 

1) Kollision abfragen 

2) Bewegung ausführen 

3) Tastatur abfragen 

4) Schuß abfragen 

5) Spielende prüfen 

6) neue Hindernisse erzeugen 

Diese grobe Gliederung finden Sie in den Zeilen 200 bis 260 
wieder. Schauen wir uns die dazu notwendigen Unterprogramme an: 

zu 1) Zuerst wird die alte Position des Raumschiffes gelöscht 
und dann die neue Position errechnet(1110-1130)- Dann wird in 
Zeile 1710 geprüft, ob an dieser Position ein Stern sitzt- Ist 
dies nicht der Fall, wird das Programm mit Punkt 2 fortgesetzt¬ 
ist an der errechneten Stelle ein Stern vorhanden, so wird zu 
Zeile 2100 verzweigt- Dort wird eine Abschlußmeldung ausgegeben 
und das Programm beendet. 

zu 2) Die Bewegung selber ist so schnell erledigt, daß wir 
dafür kein extra Unterprogramm benötigen. Die alte Position haben 
wir bereits unter Programmpunkt 1 gelöscht und ebenfalls dort die 
neue Position errechnet. Nun brauchen wir nur noch das Raumschiff 
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wieder auf den Bildschirm zu bringen (Zeile 210). Dazu geben wir 
noch ein Geräusch aus. 

zu 3) Auch die Tastaturabfrage ist schnell abgehandelt. In den 
Zeilen 1200 bis 1250 werden die 5 erlaubten Tasten abgefragt und 
entsprechend die Variablen gesetzt. 

zu 4) In Zeile 1310 wird überprüft, ob überhaupt ein Schuß 
abgefeuert wurde. Da nur in Flugrichtung geschossen werden kann, 
wird nun entsprechend R zu einem von vier identisch aufgebauten 
Programmteilen verzweigt. Wir behandeln hier deshalb exemplarisch 
nur die Zeilen 1300 bis 1390. In Zeile 1325 wird die Position des 
Rausmschiffes in eine andere Variable gerettet. Wir verwenden 
hier wieder die Variablen X und P, um das Unterprogramm in Zeile 
1010 verwenden zu können. Wir bauen nun in Zeile 1330 eine 
Schleife auf. Der Schuß soll von der Position des Raumschiffes 
beginnend bis zum Rand des Bildschirms gehen. Im Unterprogramm ab 
Zeile 1010 berechnen wir die Position des Schusses und prüfen 
anschließend, ob auf dieser Position kein Stern vorhanden ist. 
Ist dies der Fall, so wird in Zeile 1390 zuerst ein Schußgeräusch 
ausgeben (GÜSUB1900) und dann die Schleife weitergeführt. Ist der 
Schuß am Rand angelangt, so werden alle Variablen wieder zurück¬ 
gesetzt und das Unterprogramm beendet. Ist ein Stern vorhanden, 
so wird in Zeile 1340 dieser Stern gelöscht, anschließend ^ein 
Treffergeräusch ausgeben, die Variablen wieder zurückgesetzt und 
das Unterprogramm beendet. Diese Technik bewirkt, daß mit einem 
Schuß immer nur ein Stern gelöscht werden kann. Wichtig ist hier 
auch noch der Zähler der vorhandenen Sterne (H). Ist H=0, dann 
hat man alle Sterne abgeschossen und das Spiel ist beendet. 

zu 5) Wie bereits erwähnt, existieren zwei Möglichkeiten, das 
Spiel zu beenden. Entweder kollidiert das Raumschiff mit einem 
Stern (das Spiel ist verloren) oder man schießt alle Sterne ab. 
Den ersten Fall haben wir bereits unter dem Punkt abgehandelt, 
bliebe also noch der zweite Fall. Die Anzahl der noch vorhandenen 
Sterne steht in der Variablen H, so daß wir diese nur auf den 
Wert Null zu überprüfen brauchen (Zeile 240). Ist H=0, so wird in 
Zeile 2200 verzweigt, wo eine entsprechende Meldung mit der 
dazugehörigen Geräuschkulisse ausgegeben wird. 

zu 6) Die Position der neuen Sterne wird in der Zeile 250 
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berechnet- Wie Sie sehen, sind Werte zwischen 0 und 100 für die X 
und Y-Richtung möglich. Dies hat zur Folge, das nicht jeder 
Versuch, einen Stern zu erzeugen, Erfolg hat- Die Schwierigkeit 
des Spieles läßt sich also sehr gut an dieser Stelle steuern. 
Erhöhen Sie den Wert in der Berechnung, so werden weniger Sterne 
erzeugt, vermindern Sie den Wert, erscheinen immer öfter neue 
Sterne auf dem Bildschirm- In Zeile 260 wird schließlich über— 
prüft, ob die Position im erlaubten Rahmen liegt und entsprechend 
ein neuer Stern auf dem Bildschirm dargestellt- 

Wir haben Ihnen nun bis ins kleinste Detail den Aufbau eines 
solchen Spieles erklärt- Wichtig ist, daß Sie sich, bevor Sie 
sich an den Rechner setzen, genau überlegen, wie Sie das Programm 
aufbauen und aus welchen Teilen es besteht- Sie haben gesehen, 
daß Sie so ein klar gegliedertes Programm erstellen können, daß 
übersichtlich ist und keine Fehler enthält- Das nachfolgende 
Programm läßt Ihnen noch viele Freiheiten für eigene 
Erweiterungen- Lassen Sie Ihre Fantasie spielen und überlegen Sie 
sich, was noch zu verbessern wäre- Sicher finden Sie noch eine 
Fülle von Möglichkeiten- Wir wünschen Ihnen jedenfalls viel Spaß 
beim Programmieren und Spielen- 
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5 REM *** STARSHOOTER *** 

10 P0KE56,S8:P0KE52,28:CLR 

15 F0RI=7168T07679:P0KEI,PEEKC 25600+1):NEXTI 
20 FORI=7176TO7207:READA:POKEI,A:NEXTI 
30 P0KE368S9,255:P0KE36879,8:P0KE36878,15 
40 PRINTCHR:S( 147) 

50 FORI=38400X038905:POKEI,2:NEXT 

60 GOSUB1000:GOSUB1010 

80 IFPEEK< PX >32THEN60 

90 P0KEP,4£:H=H+1:IFH<20THEN60 

100 GOSUB1000:GOSUB1010: IFPEEK< P)< >32THEN100 

110 R = I NT( RNDC 1 ) *3 ) + 1 : POKEP , R 

200 GOSUB1700:REM KOLLISION? 

210 POKEP,R:P0KE36877,220:P0KE36877,200:P0KE36877,240:REM BEWEGUNG 

220 GOSUB1200:REM ABFRAGE TASTATUR 

230 GOSUB1300:REM SCHUSSABFRAGE 

240 IFH=0THEN2E00:REM ALLE HINDERNISSE WEG 

250 XZ=RND< 1)*100-1:YZ=RND< 1)*100-1:PZ=7680+XZ+YZ*22 

260 IFXZ<22ANDYZ<23ANDPEEK< PZ)=32THENP0KEPZ,42:H=H+1 

998 GOTO200 

999 END 

1000 X=INT< RNDC 1 )*21 ) : Y=INT< RNDC 1 )*22) :RETURN 
1010 P=7680+X+Y*22 

1020 RETURN 
1100 POKEP,32 

1110 X = X-< R=3)*< X>0)+< R=1 )*< X<21 ) 

1 120 Y=Y-< R=4)*( Y>0)+< R=2)*< Y< 22 ) 

1130 GOSUB 10 10 .'RETURN 
1200 GETA« 

1210 IFA$=" I''THENR=4 
1220 IFA^="J"THENR=3 
1230 IFAS='’M’'THENR=2 
1240 IFA$="K"THENR=1 
1250 IFA$=" ''THENS=1 
1260 RETURN 
1300 IFS=0THENRETURN 
1320 IFR>1THEN1420 
1325 XZ=X:PZ=P 

1330 F0RX = XZ + 1T021:6OSUB1010: IFPEEKC P)=32THEN1390 
1340 POKEP,32:GOSUB1950:X=XZ:P=PZ:S=0:H=H-1:RETURN 
1390 GOSUB1900:NEXTX:X=XZ:S=0:P=PZ:RETURN 


229 


1420 IFR>2THEN1520 
1425 YZ=Y:PZ=P 

1430 FORY=YZ + 1TO22:GOSUB1010:IFPEEK( P)=32THEN1490 
1440 POKEP,32:GOSUB1950:Y=YZ SP=PZ:S=0:H=H-1:RETURN 
1490 GOSUB1900:NEXTY:Y=YZ:9=0:P=PZ:RETURN 
1520 IFR>3THEN1625 
1525 XZ=X:PZ=P 

1530 FORX=XZ-1TO0STEP-1:GOSUB1010: IFPEEKC P)=32THEN1590 
1540 POKEP^32:GOSUB1950:X=XZ:P=PZ:9=0:H=H-1:RETURN 
1590 G09UB1900:NEXTX:X=XZ:9=0:P=PZ:RETURN 
1625 YZ=Y:PZ=P 

1630 FORY=YZ-1TO03TEP-1:GO5UB1010: IFPEEKC P)=32THEN1690 
1640 POKEP,32:GO3UB1950:Y=YZ:P=PZ:9=0:H=H-1:RETURN 
1690 G09UB1900:NEXTY:Y=YZ:9=0:P=PZ:RETURN 
1700 GO9UB1100 

1710 IFPEEKCP)=42THEN2100:REM K0LLI9I0N 
1720 RETURN 

1900 P0KE36877,230:P0KE36877,235:RETURN 

1950 P0KE36877,0:P0KE36875,240:FORI=1T09:NEXTI:P0KE36375,0:RETURN 

2000 DATP 0,224,248,143,248,224,0,0 

2010 DATA 124,108,108,40,56,16,16,16 

2020 DATA 0,7,31,241,31,7,0,0 

2030 DATA 16,16,16,56,40,108,108,124 

2100 POKE36869,240:PRINTCHR$«: 147) :PRINT"LEIDER VERLOREN" 

2110 P0KE36878,15 

2120 F0RI=254T0 1283TEP-1:P0KE36877,I :NEXTI 
2130 POKE36378,0:END 

2200 POKE36869,240:PRINTCHR^< 147):PR INT:PR INT"BRAVO! !!!" 

2210 PRINT"5IE HABEN E9 GE8CHAFFT" 

2220 P0KE36878,15 

2230 FORI = 128T0254:P0KE36877,I:FORJ =1TO50:NEXTJ,I 
2240 POKE36878,0:END 

READY. 


230 


WICHTIGE 

VORANKÜNDIGUNG 


Im Herbst erscheinen in der Serie DATA BECKER Bücher drei neue, hoch¬ 
aktuelle Titel: 

• DAS GROSSE FLOPPYBUCH ZU VC-20 
UND COMMODORE 64 

ln diesem neuen Superbuch finden Sie alles, was Sie schon immer 
über Floppy-Programmierung wissen wollten, von Hinweisen für Ein¬ 
steiger über die Floppy-Programmierung für Fortgeschrittene bis hin zu 
zahlreichen fertigen Programmen und Utilities. 

Erscheint im Oktober. 

• 64 FÜR PROFIS 

KOMMERZIELLE PROGRAMMIERUNG MIT DEM 64 

Wer den Commodore 64 geschäftlich einsetzen möchte oder ent¬ 
sprechende Programme schreiben will, der braucht dieses Buch. Vom 
Maskenaufbau, Menüsteuerung und Datenspeicherung über Sor¬ 
tieren, Druckformatierung und Parameterzuweisung bis hin zur Doku¬ 
mentation zeigen wir Ihnen, wie Profis programmieren. Ein hervor¬ 
ragendes Lehrbuch zur Verbesserung Ihres Programmierstils, das dar¬ 
über hinaus 5 komplett dokumentierte Anwenderprogramme enthält! 
Auch für VC-20 Besitzer interessant. 

Erscheint im Oktober. 

• DAS GROSSE MASCHINENSPRACHE-BUCH 
FÜR VC-20 UND COMMODORE 64 

Wer schon immer Maschinensprache lernen wollte oder wer es bisher 
vergeblich versuchte, für den haben wir jetzt die Lösung. Aus¬ 
gehend von BASIC führt Sie dieses Buch schrittweise mit zahllosen 
Beispielen, Aufgaben und Beispielprogrammen in die Geheimnisse 
der Programmierung in Maschinensprache ein. 

Erscheint im November. 



VC-INFO 

3/83 ist da! 

Über 80 (!) Seiten vollgepackt mit unserem 
riesigen Angebot rund um den Erfolgscomputer 
VC-20 und den Proficomputer Commodore 64, 
mit den neuesten Programmen aus aller Welt 
und den ersten 64er Steckmodulen, mit brand¬ 
aktuellen Buchhits, mit sensationellen neuen 
Druckern, Interessantem Zubehör, CP/M für den 
64 und vielem anderen mehr. Natürlich auch 
wieder mit aktuellen Programmiertips & -tricks. 
Wer sich für VC-20 und Commodore 64 interes¬ 
siert, sollte das VC-Info 3/83 sofort gegen DM 3,- 
In Briefmarken anfordern. 


Ihr großer Partner für kleine Computer 

DATA BECKER 


Merowingerstr. 30 • 4000 Düsseldorf • Tel. (0211) 312085 















